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

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

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

1st
Ноя

Сохранить в конец файла из TStringList

Posted by micher 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;

тема на форуме