Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Дек

Как TStringList сохранить в конец файла?

Posted by Chas under Delphi

Имеется текстовый файл со строками. Мне нужно строки из TStringList сохранить в конец этого файла, но при SaveToFile данные в файле стираются. Как быть?

Serge_Bliznykov
Например, классический:

var f :TextFile;

begin

   AssignFile(f, 'ВашФайл.txt');

   if FileExists('ВашФайл.txt') then

         Append(f)

   else

         Rewrite(f);

   WriteLn(f, 'Append to End Text Line First');

   WriteLn(f, 'Append to End Text Line Second');

   CloseFile(f)

end;

можно и другими способами дописывать в конец файла.. например, через TFileStream, всё зависит от того, что за файл, зачем и что в него дописывать и т.д…

тема на форум