Question

Delphi 在程序运行时设置的属性

Delphi 在程序运行时设置的属性我想让它保存下来，在程序重启后原来设置的属性被程序运行时设置的属性所替代，怎样做到？

Answer 1

用ini文件...把在运行程序时设置的属性保存在ini文件里...在formOncreate的事件中读取ini文件;

首先要在文件夹下新建一个名为MyIni文件...
在窗体中添加一个Button1,和ColorDialog1..

Uses inifiles;

//初始化配置
procedure TForm1.FormCreate(Sender: TObject);
var
myini:TIniFile;
begin
if FileExists(ExtractFilePath(Application.ExeName)+'myini.ini') then
begin
myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'myini.ini');
self.Color:=myini.ReadInteger('config','fcolor',0);
myini.Free;
end;
end;

//设置窗体颜色
procedure TForm1.Button1Click(Sender: TObject);
var
myini:TIniFile;
begin

if FileExists(ExtractFilePath(Application.ExeName)+'myini.ini') then
begin
myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'myini.ini');
if ColorDialog1.Execute then
begin
myini.WriteInteger('Config','FColor',ColorDialog1.Color);
self.Color:=myini.ReadInteger('config','fcolor',0);
end;
myini.Free;
end
else
ShowMessage('MyIni文件不存在!');
end;