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

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

*.log, каким образом? [D6, WinXP]

Ahmad ©   (2002-09-02 23:45:00) 

Уважаемые Мастера!
При повторном сохранениитекста в файл, в частности TMemo:
Memo1.Lines.SaveToFile(Application.GetNamePath+"1.log");
предыдушая запись заменяетсяна нынешнюю, а нужно чтобы оно просто дабовлялось, как в .log файлах.
Каким образом это сделать?
Заранее всем спасибо!

---

RV   (2002-09-03 08:09:00) [1]

Еще стоило бы проверять перед Append существование файла, и если нет, то создавать его.
угу, лучше сразу привыкать к этому
var
F: TextFile;
begin
AssignFile(F, Application.GetNamePath + "1.log");
{$I-}
Append(F);
if IOresult<>0 then begin
ReWrite(f);
if IOresult<>0 then Матюки, что файл не создается.
end;
Write(F, Memo1.Lines.GetText);
CloseFile(F);
{$I+}
end;

---

Aleks1   (2002-09-03 03:18:00) [2]

Добавление к Almaz © (03.09.02 02:44)
Еще стоило бы проверять перед Append существование файла, и если нет, то создавать его.

---

Almaz   (2002-09-03 02:44:00) [3]

var
F: TextFile;
begin
AssignFile(F, Application.GetNamePath + "1.log");
Append(F);
Write(F, Memo1.Lines.GetText);
CloseFile(F);
end;

Удачи.

---

Ahmad   (2002-09-03 02:19:00) [4]

>RV
а как описать f, просто:
var f: File;
f:=Application.GetNamePath+"1.log";?

---

RV   (2002-09-03 00:06:00) [5]

открыть лог
дописать в конец
закрыть

reset(f);
append(f);
myVar:=memo1.Lines.GetText;
write(f,myVar);
close(f);

---

Наверх