Показать сообщение отдельно
  #8  
Старый 10.11.2011, 22:31
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Нет, Rewrite вам пересоздает файл с нуля, что бы писать в конец используйте Append(f), но сначала проверяйте, существует ли он у вас. Что-то вроде:

Код:
AssignFile(f,'c:\1.db');
if FileExists('c:\1.db') the
 Append(f)
else
 Rewrite('c:\1.db');
//Теперь записываете в файл с помощью Write(f,ваша запись);
CloseFile(f);
Ответить с цитированием