unit Unit1; interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end; var Form1: TForm1; implementation
{$R *.dfm}
uses IniFiles; {uses 包含 TIniFile 的单元}
var ini: TIniFile; path: string; {ini 文件路径} Section,Key: string; {分别表示 ini 文件的小节与关键字}
{ ini文件结构: ;注释 [小节名] 关键字=值 INI文件支持: string、integer、boolean、Date、Time、DateTime、Double 与二进制类型 string 值没有引号 boolean 的真假用 1、0 表示 }
procedure TForm1.FormCreate(Sender: TObject); begin path := ChangeFileExt(ParamStr(0),'.ini'); ini := TIniFile.Create(path); {ini 对象建立需要文件路径参数, 如果缺少路径会默认Windows目录}
end; //写入 ini 文件:
procedure TForm1.Button1Click(Sender: TObject); begin Section := 'AAA'; Key := 'AString'; ini.WriteString(Section,Key,'AAA-String'); Key := 'AInteger'; ini.WriteInteger(Section,Key,111); Key := 'ABoolean'; ini.WriteBool(Section,Key,True); Key := 'ADate'; ini.WriteDate(Section,Key,Now); Key := 'ATime'; ini.WriteTime(Section,Key,Now); Key := 'ADateTime'; ini.WriteDateTime(Section,Key,Now); Key := 'ADouble'; ini.WriteFloat(Section,Key,Pi); Section := 'BBB'; Key := 'BString'; ini.WriteString(Section,Key,'BBB-String'); Key := 'BInteger'; ini.WriteInteger(Section,Key,222); Key := 'BBoolean'; ini.WriteBool(Section,Key,True); Key := 'BDate'; ini.WriteDate(Section,Key,Now); Key := 'BTime'; ini.WriteTime(Section,Key,Now); Key := 'BDateTime'; ini.WriteDateTime(Section,Key,Now); Key := 'BDouble'; ini.WriteFloat(Section,Key,Pi); Section := 'CCC'; Key := 'CString'; ini.WriteString(Section,Key,'CCC-String'); Key := 'CInteger'; ini.WriteInteger(Section,Key,333); Key := 'CBoolean'; ini.WriteBool(Section,Key,False); Key := 'CDate'; ini.WriteDate(Section,Key,Now); Key := 'CTime'; ini.WriteTime(Section,Key,Now); Key := 'CDateTime'; ini.WriteDateTime(Section,Key,Now); Key := 'CDouble'; ini.WriteFloat(Section,Key,Pi); {写入结果: [AAA] AString=AAA-String AInteger=111 ABoolean=1 ADate=2007-12-17 ATime=22:06:23 ADateTime=2007-12-17 22:06:23 ADouble=3.14159265358979 [BBB] BString=BBB-String BInteger=222 BBoolean=1 BDate=2007-12-17 BTime=22:06:23 BDateTime=2007-12-17 22:06:23 BDouble=3.14159265358979 [CCC] CString=CCC-String CInteger=333 CBoolean=0 CDate=2007-12-17 CTime=22:06:23 CDateTime=2007-12-17 22:06:23 CDouble=3.14159265358979 }
end; //读取 ini 文件:
procedure TForm1.Button2Click(Sender: TObject); var s: string; i: Integer; b: Boolean; f: Double; d: TDate; t: TTime; dt: TDateTime; begin s := ini.ReadString('BBB','BString',''); {最后一个参数是默认值} i := ini.ReadInteger('BBB','BInteger',0); b := ini.ReadBool('BBB','BBoolean',False); f := ini.ReadFloat('BBB','BDouble',0); d := ini.ReadDate('BBB','BDate',Now); t := ini.ReadTime('BBB','BTime',Now); dt := ini.ReadDateTime('BBB','BDateTime',No