程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 建立、讀取、存貯INI文件的方法《一》

建立、讀取、存貯INI文件的方法《一》

編輯:Delphi
  內容:
  INI文件在系統配置及應用程序參數保存與設置方面,具有很重要的作用,所以可視化的編程一族,如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法,其中Delphi中操作INI文件,最為簡潔,這是因為Delphi6.0提供了一個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, 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('程序參數','用戶名稱','缺省的用戶名稱');
  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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved