Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Edit запись в файл

Автор: Артем1 4.6.2012, 21:00

Вечер добый. Помогите пожалуйсто сделать чтоб введеный тест сохранялся в .txt "В столбик" И чтоб ранее записанные данные не стирались ,а записывались дальше. Заранее огромное Вам спасибо за помощь. Вот мой примерчик :

Автор: Чучмек 4.6.2012, 21:21

Rewrite замени на Append
а Write замени на WriteLn
И добавь проверку FileExists

Код


 St:=Edit1.Text;
 AssignFile(f1, 'file.txt');
 if FileExists('file.txt') then Append (f1)  else rewrite(f1);
 Writeln(f1, St);
 CloseFile(f1);

Автор: Артем1 4.6.2012, 21:26

Спасибо большое.