{由 Delphi 的颜色常数转换到 Html 颜色} function HexColorToHtmlColor(c: Integer): string; var R,G,B: Byte; begin R := c and $FF; G := (c shr 8) and $FF; B := (c shr 16) and $FF; Result := #35 + Format('%.2x%.2x%.2x',[R,G,B]); end;
{由 Delphi 的颜色常数转换到 Html 颜色} function HexColorTo
阅读背景：
颜色转换函数: 从 Delphi 到 Html
来源：互联网
分享到：
