Вопрос по работе с ini-файлами..

← →
pathfinder (2006-10-05 10:26) [0]

Доброе утро!
Подскажите пожалуйста, корректна ли данная запись?

with TIniFile.Create(FileName) do
writestring("x", "y", "text");

В хелпе например дан пример, с созданием экз. класса TIniFile, который потом убивается, а что произойдет в моем случае?

procedure TForm1.Button1Click(Sender: TObject);
var
DelphiIni: TIniFile;
begin
DelphiIni := TIniFile.Create("c:\windows\delphi32.ini");
Memo1.Clear;
DelphiIni.ReadSectionValues("Transfer", Memo1.Lines);
if Memo1.Lines.Values["Title1"] <> "Picture Painter" then
DelphiIni.WriteString("Transfer", "Title1", "Picture Painter");
DelphiIni.Free;
end;

← →
Kolan © (2006-10-05 10:32) [1]

procedure TForm1.Button1Click(Sender: TObject); var DelphiIni: TIniFile; begin DelphiIni := TIniFile.Create("c:\windows\delphi32.ini"); try Memo1.Clear; DelphiIni.ReadSectionValues("Transfer", Memo1.Lines); if Memo1.Lines.Values["Title1"] <> "Picture Painter" then DelphiIni.WriteString("Transfer", "Title1", "Picture Painter"); finally DelphiIni.Free; end;

← →
pathfinder (2006-10-05 10:35) [2]

> with TIniFile.Create(FileName) do
> writestring("x", "y", "text");

Вопрос больше по этой части кода.. Корректен ли он? Или надо как в хелпе?

← →
Kolan © (2006-10-05 10:37) [3]

Нет, кто удалять экземпляр будет? Пушкин?

with TIniFile.Create(FileName) do begin writestring("x", "y", "text"); Free; end;

> Корректен ли он?

в плане использования with? Вполне. Главное, не увлекаться этой конструкцией, особенно вложенной. Потенциальный источник труднообнаружимых ошибок

← →
pathfinder (2006-10-05 10:48) [5]

Спасибо.

Вопрос по работе с ini-файлами.. Найти похожие ветки