10. Процедура Close (f)

Процедура Close (F) – предназначена для закрытия открытого файла F.

Для внешнего файла, связанного с файловой переменной F, полностью выполняется его обновление (остатки данных из буфера ввода-вывода заносятся в файл). Затем файл закрывается и может быть повторно использован.

Пример 5.6.

Определение размера файла. Закрытие файла.

…

Assign (F, ‘Old’);

Reset (F);

Write (‘Размер файла Old ’, Filesize (F)); {Вывод на экран размера файла}

Close (F);

…

Текстовые файлы

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

T = File Of Char.

Файл типа T – это единая последовательность символов.

Особенность текстовых файлов – то, что содержащиеся в них символы разбиваются на строки. Строки могут быть различной длины (и пустые). В конце каждой строки помещается специальный управляющий символ – маркер конца строки. Обычно это два управляющих символа: возрат каретки (#13 или ^M – международное обозначение CR) и перевод строки (#10 или ^J – международное обозначение LF).

С наличием этого маркера связана логическая функция Eoln (End Of Line).

Функция Eoln(F) принимает значение True, если окно (текущая позиция доступа) установлено на маркер конца строки, и False – в противном случае.

Текстовые файлы – это переменные типа Text.

Тип Text относится к предопределенным структурным типам. Переменные типа Text описываются c помощью указания имени типа:

Var

X, Y: Text;

Стандартные файлы Input и Output являются текстовыми файлами. Эти файлы в программе не описываются. В начале выполнения любой программы (если не ниспользуется модуль Crt) автоматически выполняются процедуры:

Assign (Input, ’’);

Assign (Output, ’’);

Reset (Input, ’’);

Rewrite (Output, ’’);

Для работы с текстовыми файлами определены следующие процедуры и функции ввода-вывода.

1. Процедура Assign (f, Name)

Процедура Assign (F, Name) – связывает файловую переменную с внешним файлом на диске. Описана в подразд. 5.2.

2. Процедура AssignСrt(f)

Процедура AssignСrt(F) – связывает текстовые файлы с Crt (с дисплеем).

Процедура аналогична процедуре Assign. Однако второй параметр Name в ней не используется.

Данная процедура определена в модуле Crt, который реализует более быстрый ввод-вывод по сравнению со стандартным вводом-выводом и с большими функциональными возможностями.

Пример 5.7.

Вывод текстового файла F на принтер или экран.

Uses Crt;

Var

F: Text;

K: (P, C); {К –признак вывода, P – принтер, С – Crt}

Begin

…

If K = P Then

Assign (F, ’Prn’)

Else

Assigncrt (F);

…

3. Процедура Append (f)

Процедура Append (F) – открывает существующий текстовый файл для добавления. Предварительно файл F должен быть связан с внешним файлом процедурой Assign.

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

Если файл F уже был открыт, необходимо его предварительно закрыть.

В результате выполнения процедуры Append текущая позиция (окно) файла устанавливается в конец файла, на место маркера конца файла (#26 – код ASCII 26 или Ctrl-Z).

После вызова процедуры Append(F) файл F становится доступным только для записи, а значение функции Eof(F) всегда будет равно True.

Процедура Append определена только для текстовых файлов.