delphi 颜色转换函数

use GraphUtil

ColorToWebColorStr(color:TColor):string;//将Tcolor 转换成如#EEAABB 格式字符串

将delphi中的颜色转换为html的格式

在delphi中使用ColorToWebColorStr(Tcolor)函数可以将传进的Tcolor格式化为html格式的颜色的字符串，WebColorToColor(String)则相反。例如下面代码：

 

sHexRGBResult:=ColorToWebColorStr(clWhite); //sHexRGBResult是一个字符串，它的值为#FFFFFF。

c:=WebColorStrToColor(sHexRGBResult); //c是一个Tcolor类型的值

ShowMessage(ColorToString(c));       //这里显示c转换为string的值为clWhite

 

还可以通过另一种来获得color的格式

sHexRGBResult:= '$' + IntToHex (clWhite, 8);//IntToHex将color转换为16进制的数值，转换后sHexRGBResult的值 为$00FFFFFF，也可只转换为6位，结果为$FFFFFF