Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

TIniFile   Найти похожие ветки 

← →
Ske4er ©   (2004-06-08 21:54) [0]

Здравия всем. Поскажите пожалуйта насчет вот такого конфуза: в файле спарвки Delphi 7 есть такая конструкция по теме использования IniFile:

procedure TForm1.FormCreate(Sender: TObject);
var
 Ini: TIniFile;
begin
 Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, ".INI" ) );
 try
   Top     := Ini.ReadInteger( "Form", "Top", 100 );
   Left    := Ini.ReadInteger( "Form", "Left", 100 );
   Caption := Ini.ReadString( "Form", "Caption", "New Form" );
   if Ini.ReadBool( "Form", "InitMax", false ) then
     WindowState = wsMaximized
   else

     WindowState = wsNormal;
 finally
   TIniFile.Free;
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)
var
 Ini: TIniFile;
begin
 Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, ".INI" ) );
 try
   Ini.WriteInteger( "Form", "Top", Top);
   Ini.WriteInteger( "Form", "Left", Left);
   Ini.WriteString( "Form", "Caption", Caption );
   Ini.WriteBool( "Form", "InitMax", WindowState = wsMaximized );

 finally
   TIniFile.Free;
 end;
end;


Как я понимаю вместо TIniFile.Free; должно быть Ini.Free; ? Или я совсем устал и мне нужно поспать?...

---

← →
Гаврила ©   (2004-06-08 21:56) [1]

Правильно понимаешь

---

← →
Sergey Masloff   (2004-06-08 21:57) [2]

>Как я понимаю вместо TIniFile.Free; должно быть Ini.Free;
Ну да... а еще лучше

with TIniFile.Create do
try
 DoSomething;
finally
 Free();
end;


---

← →
Ske4er ©   (2004-06-08 22:03) [3]

Пасиба, а то компилятор ругается на свою собственную справку... :lol:

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c