Писать в текстовый файл

← →
Гомункул © (2005-08-01 13:30) [0]

Сорри за простой вопрос - код ниже пишет события в txt сверху вниз. А как добавлять каждую новую строку первой в файле (сверху)?
// запись в лог файл
FileName := ExtractFilePath(Application.ExeName)+ "debug.log";
AssignFile(LogFile,FileName);
if not FileExists(Filename)
then Rewrite(LogFile)
else Append(LogFile);
WriteLn(LogFile,cbLog.text);
CloseFile(LogFile);

← →
Alexander Panov © (2005-08-01 13:36) [1]

только переписывая весь файл.

← →
Anatoly Podgoretsky © (2005-08-01 13:52) [2]

Нет такого понятия верх/них у текстовых файлов.

← →
Гомункул © (2005-08-01 14:08) [3]

2 Alexander Panov: Спасибо

2 Anatoly Podgoretsky:
>Нет такого понятия верх/них
Да что Вы говорите?!!

Гомункул © (01.08.05 13:30)

Советую не писАть прямо в файл, а записывать в TStringList методом Insert, а потом сохранять.

>Советую не писАть прямо в файл, а записывать в TStringList
Лог работы пишется при каждом запуске файла. Так что - сначала весь файл в StringList засовывать?... Хммм...

По поводу моего вопроса:
Да ладно, не принципиально это. Если через ж. делается то и фиг с ним. :-)

Писать в текстовый файл Найти похожие ветки