随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

{由 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;
posted on 2008-02-19 15:08  万一  阅读(...)  评论(...编辑  收藏