么意思博客

想把delphi的默认颜色转换成颜色代码，就找了这么个函数转换： 调用方法：

想把delphi的默认颜色转换成颜色代码，就找了这么个函数转换：

function ToHTML(t:TColor):string;
var sBuf:string;
 procedure swap(var c1,c2:char);
 var tmp:char;
 begin
   c1:=Char(Ord(c1) xor Ord(c2));
   c2:=Char(Ord(c1) xor Ord(c2));
   c1:=Char(Ord(c1) xor Ord(c2));
 end;
begin
 {转换颜色}
  sBuf:=IntToHex(ColorToRGB(t),6);
 {高低位交换}
  swap(sBuf[1],sBuf[5]);
  swap(sBuf[2],sBuf[6]);
  Result:='#'+sBuf;
end;

调用方法：

edit1.text:=ToHTML(clBtnFace);