如何把字符串转为16进制的颜色代码呢?

Question

从数据库里拿出一个类似于 '#FF0000' 的字符串,
怎样能够把他当成颜色代码来赋值呢?

Answer 1

function HexToTColor(sColor: string): TColor;begin Result := RGB(   StrToInt(#36 + Copy(sColor, 1, 2)),   StrToInt(#36 + Copy(sColor, 3, 2)),   StrToInt(#36 + Copy(sColor, 5, 2)) );end;

Answer 2

procedure TForm1.btn1Click(Sender: TObject);
var
  str:string;
begin
  str:='#ff0000';
  Self.Color:=StringToColor(str)
end;好像会出错啊..不对啊.

Answer 3

procedure TForm1.btn1Click(Sender: TObject); 
var 
  str:string; 
begin 
  str:='ff0000'; //这里是不要带#号的
  Self.Color:=StringToColor(str) 
end;