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.
