很小的問題(10分)

我在配置文件中存了一個colorBox的值 BarColor = ClWhite (字符串)
程序讀取是這樣的 tmpcolor := tmpini.ReadString('winstyle','Barcolor','ClWhite')
此時 tmpcolor的值為'clwhite' 為字符串值
我在程序初始化的時候想讀取這個值,把 Bar.Color := tmpcolor ;
可這樣子肯定是不可以的
請問如何把 tmpcolor 轉換成 TColor 值呢
這樣就可以給 Bar.Color 設置Color值了;

跟字符串clWhite等的列表一样，同时保存相应的颜色值（longint 或者以ffffff
之类的字符串），这样取道clwhite时就可以同时取得fffff的字符串。
利用rgb之类的函数，你就可以组成Tcolor类型了
或者你自己也个函数，比如
function getTColor(sValue:String):TColor;
var
sVal:String;
begin
sVal:=Uppercase(sValue);
if sVal='CLWHITE' Then
Result:=clWhite
else if sVal='CLRED' Then
Result:=clRed
.........

end;
//实际调用时
Bar.Color := GetTClor(tmpcolor) ;