VPF::Дозаписать в файл строки - Форум программистов

valeon

Дата 2.10.2009, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.10.2009

Репутация: нет
Всего: нет

здравствуйте.
помогите разобраться с кодом:

Код


temp:TStringList;
...
     if RadioButton1.Checked then
     temp.SaveToFile(Edit1.Text+'\файл1.txt')
 else
     if RadioButton3.Checked then
     begin
     if FileExists (Edit1.Text+'\файл1.txt') then
     Append(f);
     closefile(f)
     end
  else
     if RadioButton2.Checked then
     temp.SaveToFile(Edit1.Text+'\файл2.txt')
  else

мне необходимо, чтобы при выборе RadioButton3 происходило дозапись в 'файл1.txt' строк, если файл существует, но идет просто перезаписывание файла.

Keeper89

Дата 2.10.2009, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

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

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 2.10.2009, 22:37 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(valeon @ 2.10.2009, 22:22

)

но идет просто перезаписывание файла.

Используем TextFile и наслаждаемся! smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »