Delphi 对ini文件的操作

界面如图：

代码如下：

 unit Unit1;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,IniFiles; //添加库 IniFiles

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
     Edit1: TEdit;
     Edit2: TEdit;
     Edit3: TEdit;
     CheckBox1: TCheckBox;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;
 var
   filepath    :string;
   myinifile   : TIniFile;
 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 try
   filepath  := ExtractFilePath(Paramstr()) + 'serverlist.ini'; //获取当前路径+文件名
   myinifile := Tinifile.Create(filepath);                       //创建文件
 except
   ShowMessage('LOADINI打开配置文件失败');
   Exit;
 end;
     {写入}
     myinifile.WriteString('ListServer1','ServerCount','');
     myinifile.WriteString('ListServer1','Name0','');
     myinifile.WriteString('ListServer1001','ServerCount','');
     myinifile.WriteString('ListServer1001','Name0',Edit1.Text);
     myinifile.WriteString('ListServer1001','IP0',Edit2.Text);
     myinifile.WriteInteger('ListServer1001','Port0',StrToInt(Edit3.Text));
     myinifile.WriteBool('Battle','Enable',False);

     myinifile.WriteInteger('Resolution','width',);
     myinifile.WriteInteger('Resolution','height',);
     if CheckBox1.Checked = True then
     myinifile.WriteBool('WINDOW_MODE','MODE',True)
     else
     myinifile.WriteBool('WINDOW_MODE','MODE',False);
     ShowMessage('写入成功');
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
 try
   filepath  := ExtractFilePath(Paramstr()) + 'serverlist.ini'; //获取当前路径+文件名
   myinifile := Tinifile.Create(filepath);                  //创建文件
 except
   ShowMessage('LOADINI打开配置文件失败');
   Exit;
 end;
     {读取}
     Edit1.Text:= myinifile.ReadString('ListServer1001','Name0','');
     Edit2.Text:= myinifile.ReadString('ListServer1001','IP0','');
     Edit3.Text:= myinifile.ReadString('ListServer1001','Port0','');
 end;

 end.