ini文件的读写.txt

是一部详细介绍了DELPHI的经典著作

读写INI文件:在Private下面设定私有变量inifile:TInifile
(一)在窗体的OnCreate事件中对INI文件进行读取:
procedure TForm1.FormCreate(Sender:Tobject);
var
  status:integer;
begin
  inifile:=Tinifile.create(ExtractFilePath(application.exename)+'ini_one.ini');
//设定ini文件对象
  status:=inifile.readinteger('mainform','Status',0);
  if status<>0 then
  begin
//读取ini文件中的内容
  top:=inifile.readinteger('mainform','top',top);
  left:=inifile.readinteger('mainform','left',left);
  width:=inifile.readinteger('mainform','width',width);
  height:=inifile.readinteger('mainform','height',height);
  label1.caption:=inifile.readstring('label1','caption',label1.caption);
  button1.visible:=inifile.readbool('button1','visible',button1.visible);
  button2.visible:=inifile.readbool('button2','visible',button2.visible);
  case status of
     1: windowstate:=wsnormal;
     2: windowstate:=wsminimized;
     3: windowstate:=wsmaximized;
  end;
 end;
end;
(二)在程序的OnClose事件中加入对INI文件写入的代码
procedure TForm1.FormClose(Sender:TObject; var action:TCloseAction);
var
  status:integer;
begin
if messagedlg('保存当前设置吗?',mtconfirmation,[mbyse,mbno],0)=idyes then
  begin
    status:=1;// default
    case windowstate of
//向ini文件中写入内容
     wsnormal:begin
       inifile.writeinteger('mainform','top',top);
       inifile.writeinteger('mainform','left',left);
       inifile.writeinteger('mainform','width',width);
       inifile.writeinteger('mainform','height',height);
       inifile.writestring('label1','caption',label1.caption);
       inifile.writebool('button1','visible',button1.visible);
       inifile.writebool('button2','visible',button2.visible);
  end;
wsminimized:status:=2;
wsmaximized:status:=3;
end;
if not active then
status:=2;
inifile.writeinteger('mainform','status',status);
end;
inifile.free;
end;