Ввод данных из типизированного файла

Процедура Read

Процедура Read обеспечивает ввод (копирование) данных из типизированно­го файла в ОП переменных, определенных в списке данных оператора. Форма обращения к процедуре Read:

Read (файловая-переменная, список-данных);

где файловая-переменная должна быть объявлена как переменная типа файла, содержащего определенный тип компонентов;

список-данных - последовательность имен переменных, разделенных запятыми, того же типа, что и компоненты файла.

Например: Read (F, Z); — читать из файла F в запись Z.

Для чтения данных из файла он должен быть объявлен, создан, связан с физическим файлом с помощью Assign и открыт с помощью процедуры Reset. Схема алгоритма процедуры СНТ — чтения данных из файла F:

Пример фрагмента программы, вызывающей СНТ, и вывода из нее с помощью процедуры Р содержимого Z — записей файла:

Процедура СНТ и ее вызов.

PROCEDURE СНТ;

BEGIN

WRITELN (' ЧТЕНИЕ ФАЙЛА '); RESET (F); { - открытие файла }

REPEAT

READ (F, Z); Р; { - чтение и вывод записи }

UNTIL EOF (F }; CLOSE (F); { - закрытие файла F }

END;

BEGIN { Связывание F с физическим файлом: }

ASSIGN (F, 'FLR6.REZ');

СНТ; { − вызов процедуры чтения }

END.

Текст процеду­ры Р содержит вызов процедуры WRITELN, примеры которой приведены при рассмотрении текстовых файлов.

Чтение данных из файла производится до появления ситуации EOF(F). Использование процедуры Read после исчерпания всех данных файла вызовет ошибку ввода-вывода.

В алгоритме и примере используются идентификаторы:

СНТ — имя процедуры чтения данных из файла;

Р - имя процедуры для вывода данных записи Z;

F - имя типизированного файла с записями;

Z − имя записи для компонентов типизированного файла F.

Дата добавления: 2014-01-06