一、有必要了解INI文件的結(jié)構(gòu)：
;注釋
[小節(jié)名]
關(guān)鍵字=值
...
INI文件允許有多個(gè)小節(jié)，每個(gè)小節(jié)又允許有多個(gè)關(guān)鍵字， “=”后面是該關(guān)鍵字的值。
值的類型有三種：字符串、整型數(shù)值和布爾值。其中字符串存貯在INI文件中時(shí)沒(méi)有引號(hào)，布爾真值用1表示，布爾假值用0表示。
注釋以分號(hào)“;”開頭。
二、定義
1、在Interface的Uses節(jié)增加IniFiles；
2、在Var變量定義部分增加一行：
myinifile:Tinifile;
然后，就可以對(duì)變量myinifile進(jìn)行創(chuàng)建、打開、讀取、寫入等操作了。
三、打開INI文件
myinifile:=Tinifile.create('program.ini');
上面這一行語(yǔ)句將會(huì)為變量myinifile與具體的文件 program.ini建立聯(lián)系，然后，就可以通過(guò)變量myinifile，來(lái)讀寫program.ini文件中的關(guān)鍵字的值了。
值得注意的是，如果括號(hào)中的文件名沒(méi)有指明路徑的話，那么這個(gè)Program.ini文件會(huì)存儲(chǔ)在Windows目錄中,把Program.ini文件存儲(chǔ)在應(yīng)用程序當(dāng)前目錄中的方法是：為其指定完整的路徑及文件名。下面的兩條語(yǔ)句可以完成這個(gè)功
能：
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(filename);
四、讀取關(guān)鍵字的值
針對(duì)INI文件支持的字符串、整型數(shù)值、布爾值三種數(shù)據(jù)類型，TINIfiles類提供了三種不同的對(duì)象方法來(lái)讀取INI文件中關(guān)鍵字的值。
假設(shè)已定義變量vs、vi、vb分別為string、 integer、boolean類型。
vs:=myinifile.Readstring('小節(jié)名','關(guān)鍵字',缺省值);
vi:=myinifile.Readinteger('小節(jié)名','關(guān)鍵字',缺省值);
vb:=myinifile.Readbool('小節(jié)名','關(guān)鍵字',缺省值);
其中缺省值為該INI文件不存在該關(guān)鍵字時(shí)返回的缺省值。
五、寫入INI文件
同樣的，TInifile類也提供了三種不同的對(duì)象方法，向INI文件寫入字符串、整型數(shù)及布爾類型的關(guān)鍵字。
myinifile.writestring('小節(jié)名','關(guān)鍵字',變量或字符串值);
myinifile.writeinteger('小節(jié)名','關(guān)鍵字',變量或整型數(shù)值);
myinifile.writebool('小節(jié)名','關(guān)鍵字',變量或True或False);
當(dāng)這個(gè)INI文件不存在時(shí)，上面的語(yǔ)句還會(huì)自動(dòng)創(chuàng)建該INI文件。
六、刪除關(guān)鍵字
除了可用寫入方法增加一個(gè)關(guān)鍵字，Tinifile類還提供了一個(gè)刪除關(guān)鍵字的對(duì)象方法：
myinifile.DeleteKey('小節(jié)名','關(guān)鍵字');
七、小節(jié)操作
增加一個(gè)小節(jié)可用寫入的方法來(lái)完成，刪除一個(gè)小節(jié)可用下面的對(duì)象方法：
myinifile.EraseSection('小節(jié)名');
另外Tinifile類還提供了三種對(duì)象方法來(lái)對(duì)小節(jié)進(jìn)行操作：
myinifile.readsection('小節(jié)名',TStrings變量);可將指定小節(jié)中的所有關(guān)鍵字名讀取至一個(gè)字符串列表變量中；
myinifile.readsections(TStrings變量);可將INI文件中所有小節(jié)名讀取至一個(gè)字符串列表變量中去。
myinifile.readsectionvalues('小節(jié)名',TStrings變量);可將INI文件中指定小節(jié)的所有行（包括關(guān)鍵字、=、值）讀取至一個(gè)字符串列表變量中去。
八、釋放
在適當(dāng)?shù)奈恢糜孟旅娴恼Z(yǔ)句釋放myinifile：
myinifile.distory;
九、一個(gè)實(shí)例
下面用一個(gè)簡(jiǎn)單的例子(如圖)，演示了建立、讀取、存貯INI文件的方法。myini.ini文件中包含有“程序參數(shù)”小節(jié)，和用戶名稱（字符串）、是否正式用戶（布爾值）和已運(yùn)行時(shí)間（整型值）三個(gè)關(guān)鍵字。程序在窗體建立讀取這些數(shù)據(jù)，并在窗體釋放時(shí)寫myini.ini文件。
附源程序清單
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
CheckBox1: TCheckBox;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myinifile:Tinifile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+´myini.ini´;
myinifile:=TInifile.Create(filename);
edit1.Text:= myinifile.readstring(´程序參數(shù)´,´用戶名稱´,´缺省的用戶名稱´);
edit2.text:= inttostr(myinifile.readinteger(´程序參數(shù)´,´已運(yùn)行時(shí)間´,0));
checkbox1.Checked:= myinifile.readbool(´程序參數(shù)´,´是否正式用戶´,False);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring(´程序參數(shù)´,´用戶名稱´,edit1.Text);
myinifile.writeinteger(´程序參數(shù)´,´已運(yùn)行時(shí)間´,strtoint(edit2.text));
myinifile.writebool(´程序參數(shù)´,´是否正式用戶´,checkbox1.Checked);
myinifile.Destroy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.
此實(shí)例在Delphi6.0+WinXP下調(diào)試通過(guò).
