颜色转换函数: 从 Delphi 到 Html

为什么80%的码农都做不了架构师？>>>   

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

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/319510