丰满人妻一区二区三区无码AV|国产乱色国产精品免费视频|国产精品一区二区不卡的视频|2020精品国产福利在线观看香蕉

    1. <rp id="2o2at"><nav id="2o2at"></nav></rp>
      
      

      <rt id="2o2at"></rt>
      <ruby id="2o2at"><nav id="2o2at"></nav></ruby>

    2. <rp id="2o2at"><meter id="2o2at"></meter></rp>

        <tt id="2o2at"><form id="2o2at"></form></tt>

      1. <source id="2o2at"></source>

          首頁 > 編程 > Delphi > 正文

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

          2020-01-31 20:52:40
          字體:
          來源:轉載
          供稿:網友
          一、有必要了解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;
          end.

          此實例在Delphi6.0+WinXP下調試通過.
          發表評論 共有條評論
          用戶名: 密碼:
          驗證碼: 匿名發表

          圖片精選

          1. <rp id="2o2at"><nav id="2o2at"></nav></rp>
            
            

            <rt id="2o2at"></rt>
            <ruby id="2o2at"><nav id="2o2at"></nav></ruby>

          2. <rp id="2o2at"><meter id="2o2at"></meter></rp>

              <tt id="2o2at"><form id="2o2at"></form></tt>

            1. <source id="2o2at"></source>