http://www.codenet.ru/progr/delphi/O...scal/files.php
Цитата:
Procedure Append(var F: Text);
Открывает существующий текстовый файл для добавления информации в конец файла (дозаписи).
Если внешнего файла с данным именем не существует, происходит ошибка времени выполнения.
Если файл F уже открыт, он закрывается и вновь открывается. Текущая позиция файла устанавливается к концу файла.
|
потому что file of user не является текстовым файлом
bomberman, надо сразу сообщать что ругается на этапе компиляции, и приводить текст ругательства. Попробуй сделать так:
Код:
Seek(people, FileSize(people)); // вместо Append
колдлвать с packed record не надо
