Работа с типизированными файлами

Работа с файлами заключается в записи и считывании их элементов. Чтобы проводить эти операции, необходимо организовать доступ к файлу на диске. Для этого необходимо связать файловую переменную с именем физического файла (по DOS). Это происходит с помощью процедуры Assign:

Procedure Assign (var F; name: string);

где F – файловая переменная, name – полное имя файла на диске в DOS или имя логического устройства (выражение строкового типа).

Например, на диске а: в каталоге MYFILE имеется файл data.dat (a:\MYDIR\data.dat):

Var f: file of integer;

Begin

..........

Assign (f,'a:\MYFILE\data.dat');

..........

end.

После проведения процедуры связывания требуется произвести подготовку файла к выполнению операций, т.е. открыть файл. Это осуществляется с помощью одной из двух процедур модуля System: Reset, Rewrite.

1. Procedure Reset (var F); открывает уже существующий файл, который связан с файловой переменной F. При этом указатель текущей позиции файла устанавливается в начало файла (на компонент с номером 0), т.е. типизированный файл будет открыт как для чтения, так и для записи.

Если связанный файл не существует, то программа останавливается и на экран выдается сообщение об ошибке. Чтобы избежать аварийной остановки при отсутствии требуемого файла, можно отключить режим автоматического контроля ошибок, задав перед Reset директиву компилятора {$I-}. В этом случае можно выяснить наличие файла, воспользовавшись стандартной функцией IOResult типа word. Если операция завершилась успешно, то IOResult = 0, иначе – <>0. После этого необходимо включить режим контроля ошибок, задав директиву компилятора {$I+}.

Например:

assign(old,S);{связывание файловой переменной old с именем физического файла}

{$I-} {отключение контроля ошибок}

reset(old); {открытие файла}

{$I+} {включение контроля ошибок}

if IOResult<>0 then begin {проверка результата открытия файла}

writeln('Ошибка открытия файла!');

2. Procedure Rewrite(var F); создает новый физический файл, имя которого уже связано с файловой переменной процедурой Assign. Если файл с таким именем уже существует, то содержимое его удаляется, и на его месте создается новый пустой файл. Указатель текущей позиции устанавливается на 0. В результате файл готов для записи информации.

После завершения работы с каждым файлом их рекомендуется закрывать (для надежности сохранения информации). Это осуществляется применением стандартной процедуры Close: