Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Гомункул © (2005-08-01 13:30:00)
Сорри за простой вопрос - код ниже пишет события в 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);

Гомункул (2005-08-01 14:25:00) [1]
>Советую не писАть прямо в файл, а записывать в TStringList
Лог работы пишется при каждом запуске файла. Так что - сначала весь файл в StringList засовывать?... Хммм...

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

Eraser (2005-08-01 14:11:00) [2]
Гомункул © (01.08.05 13:30)

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

Гомункул (2005-08-01 14:08:00) [3]
2 Alexander Panov: Спасибо

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

Anatoly Podgoretsky (2005-08-01 13:52:00) [4]
Нет такого понятия верх/них у текстовых файлов.

Alexander Panov (2005-08-01 13:36:00) [5]
только переписывая весь файл.

Наверх

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