51问答网 > 我用delphi写了一个写入ini配置文件的代码，但不知道怎么读取

我用delphi写了一个写入ini配置文件的代码，但不知道怎么读取

2024-12-14 14:40:36

推荐回答（1个）

回答1：

在下面两个事件中写入代码，就可以达到目的：
...
const
IniF = 'D:\Test.Ini';
...
procedure TForm1.FormDestroy(Sender: TObject);
var
ini: TIniFile;
cl: TColor;
begin
cl := Form1.Color;
ini := TIniFIle.Create(INiF);
ini.WriteInteger('System', 'BackColor', cl);
ini.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
cl: TColor;
begin
ini := TIniFile.Create(IniF);
cl := ini.ReadInteger('System', 'BackColor', clBtnFace);
ini.Free;
Form1.Color := cl;
end;