Question

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

我是为了实现用户点按钮就换窗体的背景，并记录在ini文件中，但我不知道怎么去读取，以下是代码unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,IniFiles, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementationvar   MyIni:TIniFile;Ident:String;I:Integer;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginMyIni:=TINifile.Create('D:\Test.Ini');beginIdent   :='Form1.Color';MyIni.WriteString('ABC',Ident,'clHighlight;');End; end;end.帮我弄个可以读取ini，并实现下次重启软件就更改背景另外MyIni:=TINifile.Create('D:\Test.Ini'); 我不想放到Button1,怎样提前到声明那

Answer 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;