Еоf (<ФЗ>) : boolean

Функція повертає значення 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).