Показать сообщение отдельно
  #12  
Старый 11.11.2011, 18:12
hamik hamik вне форума
Прохожий
 
Регистрация: 10.11.2011
Сообщения: 8
Репутация: 10
По умолчанию

Цитата:
Сообщение от ChinYan
Нет, 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);
[Error] rdrec_.pas(58): Incompatible types
вот что у меня
Код:
AssignFile(f, 'c:\1.db');
  if FileExists('c:\1.db') then
   Append(f)
   else
     Rewrite('c:\1.db');
Rec.Country := Edit1.Text;
Rec.Sport := Memo1.Text;
Rec.Person := Memo2.Text;
CloseFile(f);
Ответить с цитированием