用delphi操作INI文件

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