颜色转换函数: 从 Delphi 到 Html

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

---

{从十六进制字符串转换到 Html 颜色} function HexColorToHtmlColor(s: string): string; var i: Integer; R,G,B: Byte; begin i := StrToInt(s); R := i and $FF; G := (i shr 8) and $FF; B := (i shr 16) and $FF; Result := #35 + Format('%.2x%.2x%.2x',[R,G,B]); end;

---