6. Функция Eof(f)

Функция Eof(F) (End Of File) – служит для определения факта выхода при чтении за пределы файла.

Функция Eof возвращает значение признака конца файла. Если достигнут конец файла F (окно указывает на маркер конца файла – позицию, следующую за последней компонентой файла), или если файл пустой, то значение функции Eof равно True. В противном случае функция Eof возвращает значение False.

Если значение функции Eof равно True, то использование процедуры Read недопустимо.

Если в заголовке функции Eof опущено имя файла, то предполагается файл Input. Например,

L := Eof;

Здесь L – переменная типа Boolean.

Обычно обработка компонент файла в программе организуется с помощью оператора цикла с предусловием. В качестве предусловия используется логическое выражение Not Eof(F), а в теле цикла ведется обработка компонент файла F.

Пример 5.3.

Чтение из файла. Пусть имеется набор данных Old.

Var

F2: File Of Char;

X: Char;

Begin

Assign (F2, ‘Old’);

Reset (F2);

While Not Eof (F2) Do

Begin

Read (F2, X);

<Операторы обработки переменной Х>

End

. . .

7. Процедура Seek (f, n)

Процедура Seek (F, N) – осуществляет прямой доступ к элементам файла F.

Здесь N – номер элемента файла. Элементы файла нумеруются последовательно, начиная с нуля.

N может быть положительным целым выражением типа Longint.

Процедура Seek позиционирует файл на указанный номер элемента, то есть устанавливает окно файла на указанный элемент.

Файл должен быть предварительно открыт.

Процедура Seek не производит операций ввода-вывода. Следующий за Seek вызов процедуры Read или Write оперирует со следующими по порядку элементами файла.

Текстовые файлы процедурой Seek не обрабатываются.

Пример 5.4.

Запись в файл F2 элементов файла F1, начиная с номера 100 (фактически это 101-ый элемент файла F1).

Var

C: Char;

F1, F2: File Of Char;

Begin

Assign (F1, ‘Old’);

Assign (F2, ‘New’);

Reset (F1);

Rewrite (F2);

Seek (F1, 100);

While Not Eof (F1) Do

Begin

Read (F1, C);

Write (F2, C);

End;

…

8. Функция Filepos (f)

Функция Filepos (F) – возвращает номер текущей позиции (окна) файла F. Если окно установлено на начало файла, то функция возвращает значение 0. Если окно установлено на конец файла (Eof(F) = True) , то функция возвращает значение, равное размеру файла (то есть результату функции Filesize (F)).

Тип результата функции Filepos – Longint.

Функция не может использоваться для текстовых файлов.

Файл должен быть предварительно открыт.

9. Функция Filesize(f)

Функция Filesize(F) – возвращает текущий размер файла (число элементов в файле). Тип результата – Longint. Для пустого файла возвращается значение 0.

Файл должен быть предварительно открыт.

Функция не может быть использована для текстовых файлов.

Пример 5.5.

Расширение файла F (добавление элементов в конец файла).

. . .

Seek (F, Filesize (F));

Write (F, C);

. . .

В данном примере процедура Seek помещает окно файла за последним элементом файла (функция Filesize возвращает количество элементов, но так как они нумеруются с нуля, то значение функции Filesize совпадает с номером следующей компоненты после последней).