Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.04 c
14-1086862383
Тимохов
2004-06-10 14:13
2004.06.27
Паттерны.


3-1086095008
AtoL2k2
2004-06-01 17:03
2004.06.27
Группировка в FastReport.


8-1081715464
Skeptic
2004-04-12 00:31
2004.06.27
пульс!


1-1086940010
FireMan_Alexey
2004-06-11 11:46
2004.06.27
CheckListBox


1-1086770003
AAAlexeyAAA
2004-06-09 12:33
2004.06.27
ООП и arrays