Процедура Close

Cинтак сис: Close (FileVar)

FileVar - имя файловой переменной. Файл FileVar может быть закрыт или открыт.

Перед выполнением процедуры Close файл FileVar закрывается. Если перед выполнением процедуры файл не был открыт, то его состояние не изменяется. Окончание выполнения программы не влечёт за собой вызова процедуры Close.

Пример:

Var NewFile: file of boolean begin Assign (NewFile,'EMPTY'); Rewrite (NewFile); Close (NewFile) end

После выполнения указанной программы в текущем каталоге будет образован пустой набор данных EMPTY.

В дальнейшем этот набор данных может быть заполнен элементами типа boolean.

Функция FileSize

Синтаксис: FileSize (FileVar)

FileVar - имя файловой переменной. Файл FileVar должен быть открытым.

Результатом функции FileSize будет величина типа integer, значение которой равно количеству элементов файла FileVar.

Пример:

Var FileVar: file of 2..4; begin Assign (FileVar,'USELESS.DOC'); Rewrite (FileVar); Writeln (FileSize(FileVar)); end

После выполнения процедуры Rewrite файл FileVarпуст.

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

Функция FilePos

Синтаксис: FilePos (FileVar)

FileVar - имя файловой переменной. Файл FileVar должен быть открытым.

Функция FilePos возвращает величину целого типа, значение которой равно положению указателя файла FileVar. Номер начальной позиции равен 0, номер последней позиции FileSize (FileVar).

Пример:

Var FileVar: file of (Red, Green, Blue); begin Assign (FileVar,'COLORS'); Reset (FileVar); Seek (FileSize(FileVar)); Writeln (FilePos(FileVar)=0) end

Если набор данных COLORS пустой, то после выполнения программы будет выведено сообщение TRUE.

В противном случае будет выведено сообщение FALSE.

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

В отличие от файлов других типов текстовые файлы не являются просто последовательностью элементов одного типа, а состоят из символов, объединённых в строки. Каждая строка завершается парой символов CR/LF (carriage-return/linefeed). Файл заканчивается маркером Ctrl-Z.

Поскольку строки могут быть различной длины, текстовые файлы могут образовываться только последовательно. Файл может быть открыт либо только на запись (Rewrite), либо только на чтение (Reset). В системе DOS имеется возможность открыть файл для расширений (Append). В этом случае после открытия указатель файла устанавливается в конец, файл рассматривается как открытый на запись.

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

Описание типа текстового файла состоит из ключевого слова text.

Примеры

Type TextType = text; Var OutFile : TextType InpFile : text;

Тип TextType связан с набором строк, разделённых на символы и заканчивающихся последовательностью CR/LF.

OutFile и InpFile - имена текстовых файлов.

В языке Турбо Паскаль связь с внешними устройствами: консолью, терминалом, принтером, модемом и т.д., осуществляется с помощью текстовых файлов. Таким образом, эти файлы являются моделью физического набора данных, доступных с помощью этих устройств.

Внешние устройства указанных типов имеют свои символические обозначения, описываемые ниже.