Скачать: CL | DM;

Вопрос по работе с 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;

---

← →
clickmaker ©   (2006-10-05 10:38) [4]

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

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

---

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

Спасибо.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c