Цитата:
Сообщение от 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);