请问怎样能把DELPHI中得颜色转换成网页中得颜色代码..

Question

有什么合适得方法能转换...

Answer 1

网页中得颜色代码..???
不知道是什么东西，RGB值吗？
好象有一个从TColor到RGB的转化函数吧叫什么ColorToRGB吧，看看帮助吧

Answer 2

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;;

Answer 3

使用ToHTML，HOHO~~好像我写复杂了一点

Answer 4

var tmp:char;多余的，在刚才写交换函数的时候写的，可以去掉

Answer 5

我看不大明白..能不能根据这个样子写2个EDIT
1个BUTTON
在其中一个EDIT输入DELPHI里的颜色代码.例如$00009F00
点击按钮后在另一个EDIT里显示出RGB代码也就是网页里用的颜色#******麻烦了...

Answer 6

??初学者吧。
若是将$00009F00转换为网页的颜色代码，方法：保留 后6位，即009F00，然后将第1和5的字符交换，第2和第6的字符交换，前面添加一个'#'就OK了。