Форум: "Основная";
Текущий архив: 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.007 c