Delphi中的INI檔案編程
來源：互聯網
上載者：User
---- INI檔案在系統配置及應用程式參數儲存與設定方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI檔案的方法，其中Delphi中操作INI檔案，最為簡潔，這是因為Delphi3提供了一個TInifile類，使我們可以非常靈活的處理INI檔案。
一、有必要瞭解INI檔案的結構：
;注釋
[小節名]
關鍵字=值
...
---- INI檔案允許有多個小節，每個小節又允許有多個關鍵字， “=”後面是該關鍵字的值。
---- 值的類型有三種：字串、整型數值和布爾值。其中字串存貯在INI檔案中時沒有引號，布爾真值用1表示，布爾假值用0表示。
---- 注釋以分號“;”開頭。
二、定義
---- 1、在Interface的Uses節增加IniFiles；
---- 2、在Var變數定義部分增加一行：
myinifile:Tinifile;
---- 然後，就可以對變數myinifile進行建立、開啟、讀取、寫入等操作了。
三、開啟INI檔案
myinifile:=Tinifile.create('program.ini');
--- 上面這一行語句將會為變數myinifile與具體的檔案 program.ini建立聯絡，然後，就可以通過變數myinifile，來讀寫program.ini檔案中的關鍵字的值了。
---- 值得注意的是，如果括弧中的檔案名稱沒有指明路徑的話，那麼這個Program.ini檔案會儲存在Windows目錄中,把Program.ini檔案儲存體在應用程式目前的目錄中的方法是：為其指定完整的路徑及檔案名稱。下面的兩條語句可以完成這個功能：
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(filename);
四、讀取關鍵字的值
--- 針對INI檔案支援的字串、整型數值、布爾值三種資料類型，TINIfiles類提供了三種不同的對象方法來讀取INI檔案中關鍵字的值。
--- 假設已定義變數vs、vi、vb分別為string、 integer、boolean類型。
vs:=myinifile.Readstring('小節名','關鍵字',預設值);
vi:=myinifile.Readinteger('小節名','關鍵字',預設值);
vb:=myinifile.Readbool('小節名','關鍵字',預設值);
--- 其中預設值為該INI檔案不存在該關鍵字時返回的預設值。
五、寫入INI檔案
---- 同樣的，TInifile類也提供了三種不同的對象方法，向INI檔案寫入字串、整型數及布爾類型的關鍵字。
myinifile.writestring('小節名','關鍵字',變數或字串值);
myinifile.writeinteger('小節名','關鍵字',變數或整型數值);
myinifile.writebool('小節名','關鍵字',變數或True或False);
---- 當這個INI檔案不存在時，上面的語句還會自動建立該INI檔案。
六、刪除關鍵字
---- 除了可用寫入方法增加一個關鍵字，Tinifile類還提供了一個刪除關鍵字的對象方法：
myinifile.DeleteKey('小節名','關鍵字');
七、小節操作
--- 增加一個小節可用寫入的方法來完成，刪除一個小節可用下面的對象方法：
myinifile.EraseSection('小節名');
--- 另外Tinifile類還提供了三種對象方法來對小節進行操作：
--- myinifile.readsection('小節名',TStrings變數);可將指定小節中的所有關鍵字名讀取至一個字串列表變數中；
--- myinifile.readsections(TStrings變數);可將INI檔案中所有小節名讀取至一個字串列表變數中去。
---- myinifile.readsectionvalues('小節名',TStrings變數);可將INI檔案中指定小節的所有行（包括關鍵字、=、值）讀取至一個字串列表變數中去。
八、釋放
在適當的位置用下面的語句釋放myinifile：
myinifile.distory;
九、一個執行個體
---- 下面用一個簡單的例子()，示範了建立、讀取、存貯INI檔案的方法。myini.ini檔案中包含有“程式參數”小節，和使用者名稱稱（字串）、是否正式使用者（布爾值）和已已耗用時間（整型值）三個關鍵字。程式在表單建立讀取這些資料，並在表單釋放時寫myini.ini檔案。
--- 附來源程式清單
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
myinifile:TInifile;
{$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('程式參數','使用者名稱稱','預設的使用者名稱稱');
edit2.text:= inttostr(myinifile.readinteger('程式參數','已已耗用時間',0));
checkbox1.Checked:= myinifile.readbool('程式參數','是否正式使用者',False);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring('程式參數','使用者名稱稱',edit1.Text);
myinifile.writeinteger('程式參數','已已耗用時間',strtoint(edit2.text));
myinifile.writebool('程式參數','是否正式使用者',checkbox1.Checked);
myinifile.Destroy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.
