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