Скачать: CL | DM;

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

← →
Гомункул ©   (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:
>Нет такого понятия верх/них
Да что Вы говорите?!!

---

← →
Eraser ©   (2005-08-01 14:11) [4]

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

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

---

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c