Конец файла
Я не уверен в том, что вы используете eof() в правильном контексте. eof() просто ПРОВЕРЯЕТ, находитесь ли вы в конце "f"-файла. При этом вы никуда не перемещаетесь. А вот пример, как переместиться в конец файла:
|
procedure gotoeof (f : file);
{ прыгаем в конец (eof) }
begin seek (f, 0); { перемещаемся в начало } seek (f, filesize(f)); { перемещаемся вперед на "x" количество байт, в нашем случае это размер файла! } end; {gotoeof} |
Eof() только проверяет, достигнут ли конец файла. Для установления файлового курсора на конец файла, вам необходимо использовать Seek() или SeekEof(). [001679]
