使用ini文件保存设置,简便易行。
例如:保存和修改Timage组件的图片。
//相关变量
var
imgBack:Timage;
pndlgImgBack:TopenPictureDialog;
inifile:Tinifile;
//构建Tinifile对象
inifile:=Tinifile.create(getCurrentDir+'/test.ini'); //使用绝对路径,以免出错.不知为什么,调试程序时,目录老是出问题.@_@
Procedure Tform1.ImgBackChange;
var
tmps:string;
begin
pndlgImgBack.execute;
tmps:=pndlgImgBack.filename;
imgBack.picture.loadfromfile(tmps);
inifile.writestring('skin','ImageBack',tmps); //类似的还有writeinteger,writeboolean...;读取则为readinteger,readstring...
end;