网页颜色代码转换成RGB颜色值函数

2011-05-31 09:16:20 作者:闹猴在线 来源:闹猴在线 浏览次数:0 网友评论 0


{-- HTML to RGB --}
function HtoRGB(tcolor:string):string;
var
  rr,gg,bb:Integer;
begin
  if tcolor<>''then
   begin
   rr:=StrToInt('$'+Copy(tcolor,2,2));
   gg:=StrToInt('$'+Copy(tcolor,4,2));
   bb:=StrToInt('$'+Copy(tcolor,6,2));
   Result:=IntToStr(rr)+','+IntToStr(gg)+','+IntToStr(bb);
   end;
end;

[错误报告] [推荐] [收藏] [打印] [关闭] [返回顶部]

  • 验证码:

最新图片文章

最新文章

赞助商推荐