Советы по Delphi

         

Конец файла


Я не уверен в том, что вы используете eof() в правильном контексте. eof() просто ПРОВЕРЯЕТ, находитесь ли вы в конце "f"-файла. При этом вы никуда не перемещаетесь. А вот пример, как переместиться в конец файла:

    procedure gotoeof (f : file); { прыгаем в конец (eof) }
begin seek (f, 0);     { перемещаемся в начало } seek (f, filesize(f));  { перемещаемся вперед на "x" количество байт, в нашем случае это размер файла! } end; {gotoeof}

Eof() только проверяет, достигнут ли конец файла. Для установления файлового курсора на конец файла, вам необходимо использовать Seek() или SeekEof(). [001679]



Содержание раздела