颜色转换函数: 从 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;