Описание файлового типа.

Виды файлов. Файловая переменная

Файловый тип можно создать одним из трех способов:

<Имя> = File of <тип>;

<Имя> = Text;

<Имя> = File;

Здесь имя - имя файлового типа; File of, Text, File –зарезервированные слова; тип – любой тип языка ТР.

В зависимости от способа объявления можно выделить три вида файлов:

· Типизированные файлы (задаются предложением File of ..);

· Текстовые файлы (определяются типом Text);

· Нетипизированные файлы (определяются типом File).

Средства обработки файлов

Файлы становятся доступными программе только после особой процедуры открытия файла. Эта процедура заключается в связывании ранее объявленной файловой переменной с именем существующего или вновь создаваемого файла, а также в указании направления обмена информацией: чтения из файла или запись в него.

Файловая переменная связывается с именем файла в результате обращения к стандартной процедуре ASSIGN:

ASSIGN (<ф.п.>, <имя файла>);

Здесь ф.п. – файловая переменная, имя файла – текстовое выражение, содержащее имя файла и, если это необходимо, маршрут доступак нему.

Инициализировать файл означает указать для этого файла направление передачи данных.

Для чтения файл инициализируется с помощью стандартной процедуры RESET:

RESET (<ф.п.>);

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

Следующая стандартная процедура инициирует запись информации в файл, связанный с файловой переменной:

REWRITE (<ф.п.>);

Процедурой REWRITE нельзя инициировать запись информации в ранее существующий дисковый файл. При выполнении этой процедуры старый файл уничтожается и никаких сообщений об этом в программу не передается. Новый файл подготавливается к приему информации и его указатель принимает значение 0.

Следующая стандартная процедура инициирует запись в существующий текстовый файл, при чем указатель файла устанавливается в конец файла:

APPEND (<ф.п.>);

Процедура APPEND (<ф.п.>)применима только в текстовых файлах. Если текстовый файл был открыт с помощью процедуры RESETилиREWRITE, то использование процедуры APPENDприведет к закрытию этого файла и открытию его вновь, но уже для добавления записей.

Функция IORESULT(<ф.п.>) проверяет существование файла на диске. С помощью этой функции можно избежать исключительной ситуации, возникшей при обращении к несуществующему файлу.

Процедура CLOSE(<ф.п.>) используется для закрытия файла по завершении обработки данных.

Процедура RENAME(<ф.п.>) переименовывает неоткрытый внешний файл любого типа.

Логическая функция EOF(<ф.п.>)выполняетпроверку,не достигнут ликонец файла.

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

var

f: text; str: string;

begin

assign(f, 'file01.txt');

rewrite(f);

writeln(f, 'Этот простой текстовый файл содержит строку текста');

close(f);

reset(f);

readln(f, str);

close(f);

writeln('проверка ввода-вывода в файл');

writeln(str);

end.