用delphi操作INI文件

2019-11-18 17:59:52

字體：大中小

來源：轉載

供稿：網友

如何操作INI文件？
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('上面這一行語句將會為變量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;
procedureFormCreate(Sender:TObject);
procedureFormDestroy(Sender:TObject);
procedureTimer1Timer(Sender:TObject);

private
{Privatedeclarations}
public
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation
var
myinifile:TInifile;

{$R*.DFM}

procedureTForm1.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;

procedureTForm1.FormDestroy(Sender:TObject);
begin
myinifile.writestring('程序參數','用戶名稱',edit1.Text);
myinifile.writeinteger('程序參數','已運行時間',strtoint(edit2.text));
myinifile.writebool('程序參數','是否正式用戶',checkbox1.Checked);
myinifile.Destroy;
end;

procedureTForm1.Timer1Timer(Sender:TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.

上一篇：用DELPHI進行NT、2000、2003服務程序的調試

下一篇：幾個delphi書中沒提過的數據庫問題與我的疑惑和心得（一起討論）

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注