Функція повертає значення true, якщо досягнутий кінець файлу або false у протилежному випадку.
Дуже зручно використовувати цю функцію при організації циклічного зчитування з файлу. Розглянемо приклад: заданий файл ‘c:myfile.dat’, що містить непусту послідовність цілих чисел. Обрахувати суму цих чисел.
var
F: file of integer; {файл цілих чисел}
S: longint; {накопичувач суми}
x:integer; {проміжна змінна для зчитування компонентів файлу}
begin
{відкриття файлу для зчитування}
Assign (F, ‘c:myfile.dat’);
Reset(F);
S:=0;
while not EOF (F) do
begin
read(F, x);
S:=S+x;
end;
Close (F); {закриття файлу}
Writeln (‘S=’, S:10);
end.
В наведеному прикладі на початку програми файлова змінна зв’язується з вказаним у задачі файлом на диску, який відкривається для зчитування. Тіло циклу while буде повторюватися доки не буде досягнуто кінець файлу. У циклі з файлу послідовно зчитується по одному компоненту та додаються до суми. По завершенні циклу значення суми виводиться на екран.
Стандартні процедури і функції для файлів прямого доступу
Seek(< ФЗ >, N )
Процедура переміщує файловий покажчик з поточної позиції на вказану компоненту з номером N (значення N типу longint).