Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.22;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.031 c
15-1159513567
C@N
2006-09-29 11:06
2006.10.22
интересно КАК такое получилось!!!


2-1159984006
Footballer
2006-10-04 21:46
2006.10.22
Помогите с BDE...


2-1160134768
Guest001
2006-10-06 15:39
2006.10.22
Кнопка с привязанным PopupMenu.


6-1148981930
alexa14
2006-05-30 13:38
2006.10.22
Проблема с ServerSocket


6-1148679826
Николас
2006-05-27 01:43
2006.10.22
Как узнать IP адрес