Delphi 对ini文件的操作

 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.