Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

*.log, каким образом?   Найти похожие ветки 

← →
Ahmad   (2002-09-02 23:45) [0]

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

---

← →
RV   (2002-09-03 00:06) [1]

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

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

---

← →
Ahmad   (2002-09-03 02:19) [2]

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

---

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

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

Удачи.

---

← →
Aleks1   (2002-09-03 03:18) [4]

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

---

← →
RV   (2002-09-03 08:09) [5]

Еще стоило бы проверять перед 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;

---

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

Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c