界面如图：
代码如下：
1 unit Unit1;
2
3 interface
4
5 uses
6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,IniFiles; //添加库 IniFiles
8
9 type
10 TForm1 = class(TForm)
11 Button1: TButton;
12 Button2: TButton;
13 Label1: TLabel;
14 Label2: TLabel;
15 Label3: TLabel;
16 Label4: TLabel;
17 Edit1: TEdit;
18 Edit2: TEdit;
19 Edit3: TEdit;
20 CheckBox1: TCheckBox;
21 procedure Button1Click(Sender: TObject);
22 procedure Button2Click(Sender: TObject);
23 private
24 { Private declarations }
25 public
26 { Public declarations }
27 end;
28
29 var
30 Form1: TForm1;
31 var
32 filepath :string;
33 myinifile : TIniFile;
34 implementation
35
36 {$R *.dfm}
37
38 procedure TForm1.Button1Click(Sender: TObject);
39 begin
40 try
41 filepath := ExtractFilePath(Paramstr(0)) + 'serverlist.ini'; //获取当前路径+文件名
42 myinifile := Tinifile.Create(filepath); //创建文件
43 except
44 ShowMessage('LOADINI打开配置文件失败');
45 Exit;
46 end;
47 {写入}
48 myinifile.WriteString('ListServer1','ServerCount','1');
49 myinifile.WriteString('ListServer1','Name0','1');
50 myinifile.WriteString('ListServer1001','ServerCount','1');
51 myinifile.WriteString('ListServer1001','Name0',Edit1.Text);
52 myinifile.WriteString('ListServer1001','IP0',Edit2.Text);
53 myinifile.WriteInteger('ListServer1001','Port0',StrToInt(Edit3.Text));
54 myinifile.WriteBool('Battle','Enable',False);
55
56 myinifile.WriteInteger('Resolution','width',1024);
57 myinifile.WriteInteger('Resolution','height',768);
58 if CheckBox1.Checked = True then
59 myinifile.WriteBool('WINDOW_MODE','MODE',True)
60 else
61 myinifile.WriteBool('WINDOW_MODE','MODE',False);
62 ShowMessage('写入成功');
63 end;
64
65 procedure TForm1.Button2Click(Sender: TObject);
66 begin
67 try
68 filepath := ExtractFilePath(Paramstr(0)) + 'serverlist.ini'; //获取当前路径+文件名
69 myinifile := Tinifile.Create(filepath); //创建文件
70 except
71 ShowMessage('LOADINI打开配置文件失败');
72 Exit;
73 end;
74 {读取}
75 Edit1.Text:= myinifile.ReadString('ListServer1001','Name0','');
76 Edit2.Text:= myinifile.ReadString('ListServer1001','IP0','');
77 Edit3.Text:= myinifile.ReadString('ListServer1001','Port0','');
78 end;
79
80 end.