INI文件中的颜色值的读取?(怎么在值前加$)(50分)

  • 主题发起人 oliver99
  • 开始时间
O

oliver99

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个INI文件,里面的结构是:
[Color]
Color001=00EAEAEA
Color002=00704820

在Delphi中这样用:
IniColor001:= DrawSkinIniFile.ReadInteger('Color','Color001',$00FFFFFF);
IniColor002:= DrawSkinIniFile.ReadInteger('Color','Color002',$00000000);

因为在INI文件中,颜色值前没有“$”号(例如:Color001=00EAEAEA),delphi中不会成
功取出INI文件中的数值,而只会用默认值(例如:IniColor001:=$00FFFFF;
IniColor002:=$00000000)。
我的要求是,INI文件不改,在程序中改代码,使程序能读出正确的值
(例如:IniColor001:=$00EAEAEA;IniColor002:=$00704820),怎么办?
不要让我改INI文件,在颜色值前加“$”(例如改成这样:Color001=$00EAEAEA),
这个我会。我只想在程序中改代码,使程序能读出正确的值
(例如:IniColor001:=$00EAEAEA;IniColor002:=$00704820),怎么办?OK!
 
s:string;
s:='00FFFF';
s:= '$' + s;
color := strtoint(s);
 
用stringToColor
读INI:t1:= DrawSkinIniFile.Readstring('Color','Color001','$00FFFFFF');
然后:t1='$'+inicolor001 加$
转为颜色:inicolor001:=StringToColor(t1)
 
呵呵,楼上的比我快。
 
楼主,发分吧!
 
To snowsky:
回家证实后,下次来给你加¥,不会嫌我慢吧?
最后还是谢谢snowsky兄。。
 
呵呵,不会,无所谓地。不过记得stringToColor时做例外处理,以防止有人改动你的INI
文件,造成程序运行出错。
 
To snowsky, 程序中的错误处理分析,排除和加安全代码,这是我的强项(吹牛啦)。
不过,在这里还是要感谢你的提醒。谢谢了,十万分感谢!!!!
 
接受答案了.
 
顶部