| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по работе с ini-файлами.. [D5, 2000]

pathfinder ©   (2006-10-05 10:26:00) 

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

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;

---

pathfinder   (2006-10-05 10:48:00) [1]

Спасибо.

---

clickmaker   (2006-10-05 10:38:00) [2]

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

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

---

Kolan   (2006-10-05 10:37:00) [3]

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

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

---

pathfinder   (2006-10-05 10:35:00) [4]

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


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

---

Kolan   (2006-10-05 10:32:00) [5]

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;

---

Наверх