delphi 颜色转换函数: 从 Delphi 到 Html


本文整理自网络,侵删。

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

相关阅读 >>

Delphi与正则表达式

Delphi文本文件读与写

Delphi 隐藏进程代码

winapi 字符及字符串函数(3): charupper - 字符或字符串转大写

Delphi 木马配置器通用写法(末尾追加数据的方法)

Delphi的控制台程式添加图标

Delphi 跳出for循环

Delphi firedac tfddatamove 导出csv

Delphi dbexpress的upwherekeyonly的使用注意事项

Delphi bytestofile

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...