[Alegun]

Пример работы с файлом ini

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 Text: TIniFile;
 WS: string;
begin
 try
 Text:= TIniFile.Create(extractFileDir(ParamSTR(0))+'\ini.ini');
  Top:=Text.ReadInteger('frmMain','Top',390);
  Left:=Text.ReadInteger('frmMain','Left',270);
  Height:=Text.ReadInteger('frmMain','Height',333);
  Width:=Text.ReadInteger('frmMain','Width',452);
  n1.Checked:= Text.ReadBool('frmMain','n1Checked',true);
  WS:= Text.ReadString('frmMain','WindowState','wsNormal');
  if WS = 'wsMaximized' then 
   WindowState:= wsMaximized 
    else 
     WindowState:= wsNormal;
finally
 Text.Free;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var 
 Text  : TIniFile;
 WS: string;
begin
    try
   Text:=TIniFile.Create(extractFileDir(ParamSTR(0))+'\ini.ini');
   Text.WriteInteger('frmMain','Top',Top);
   Text.WriteInteger('frmMain','Left',Left);
   Text.WriteInteger('frmMain','Height',Height);
   Text.WriteInteger('frmMain','Width',Width);
   Text.WriteBool('frmMain','n1Checked',n1.Checked);
   if WindowState = wsNormal then 
   WS:= 'wsNormal'
    else 
    WS:= 'wsMaximized';
  Text.WriteString('frmMain','WindowState',WS); 
  finally 
  Text.Free;
end;
end;