Последовательный и прямой доступ к элементам файла

Далее приведены встроенные процедуры и функции Турбо Паскаля для прямого доступа к компонентам файла.

Процедура или функция	Назначение
FileSize(Var f): LongInt	Возвращает число записей или бло­ков в открытом файле f
FilePos (Var f): LongInt	Возвращает номер записи в откры­том файле f предшествующий той, которая будет считана или записана последующей операцией ввода-вывода
Seek (Var f; N: LongInt)	Устанавливает текущей записью в открытом файле f компоненту с но­мером N
Truncate (Var f)	Отсекает часть открытого файла f начиная с той записи, которая была бы считана последующей операцией ввода

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

Пример. Вывести на экран компоненту существующего файла f целых чисел с заданным номером.

Program Examp_26; Var N, к: Integer; ... / File Of Integer; Begin

Assign(f, 'INT.DAT');

ReSet(/); { Открываем f для чтения }

Write ('Номер записи N=');

ReadLn(N);

Seek(N-l); {Устанавливаем указатель}

Read(f, k);

Write('3anucь с номером ', N, ' = ', k);

Close(f); {Закрываем fj

End.