Delphi編程使用INI文件保存信息

Delphi使用INI文件編程的一個小例子，這是其中一個核心文件的代碼，完成對INI文件的各種操作，我覺得對大家有用，所以就把這個文件的完整代碼分享給大家。

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, ExtCtrls, Inifiles; 06 type 07   TForm1 = class(TForm) 08     Label1: TLabel; 09     Edit1: TEdit; 10     Label2: TLabel; 11     Edit2: TEdit; 12     Timer1: TTimer; 13     CheckBox1: TCheckBox; 14     procedure Timer1Timer(Sender: TObject); 15     procedure FormCreate(Sender: TObject); 16     procedure FormClose(Sender: TObject; var Action: TCloseAction); 17   private 18     { Private declarations } 19   public 20     { Public declarations } 21   end; 22 var 23   Form1: TForm1; 24   myinifile:TInifile; 25 implementation 26 {$R *.dfm} 27 procedure TForm1.Timer1Timer(Sender: TObject); 28 begin 29   // 每格一秒增加1 30   Edit2.Text := IntToStr(StrToInt(Edit2.Text) + 1); 31 end; 32 procedure TForm1.FormCreate(Sender: TObject); 33 var 34   FileName:string; 35 begin 36   // 獲取當前程序所在路徑 37   FileName := 'c:\myini.ini'; 38   // 創建myinifile對象，並創建或打開myini.ini文件 39   myinifile := TInifile.Create(FileName); 40   // 讀取值 41   Edit1.Text := myinifile.ReadString('程序參數', '用戶名稱', '缺省的用戶名稱'); 42   Edit2.Text := IntToStr(myinifile.ReadInteger('程序參數', '已運行時間', 0)); 43   Checkbox1.Checked := myinifile.ReadBool('程序參數', '是否正式用戶', False); 44 end; 45 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 46 begin 47   // 在程序關閉時寫入myini.ini文件 48   myinifile.WriteString('程序參數', '用戶名稱', Edit1.Text); 49   myinifile.WriteInteger('程序參數', '已運行時間', StrToInt(Edit2.Text)); 50   myinifile.WriteBool('程序參數', '是否正式用戶', CheckBox1.Checked); 51   // 釋放myinifile對象 52   myinifile.Destroy; 53 end; 54 end.