Процедура Append

Синтаксис: Append (TextVar)

TextVar - имя файловой переменной типа text. Перед выполнением процедуры Append файл TextVar должен быть связан с существующим набором данных или с логическим устройством. TextVar не может быть именем предопределённой файловой переменной.

Процедура Append открывает файл TextVar. Если файл TextVar связан с логическим устройством, то он уже открыт и процедура Append не приведёт ни к каким результатам. Если файл TextVar связан с несуществующим набором данных, то он будет открыт, а указатель файла будет установлен к конец.

Пример:

Var Extend : text; ... Assign (Extend,'BOOK'); Append (Extend);

Процедура Assign связывает текстовый файл Extend с набором данных BOOK.

Процедура Append открывает файл Extend для расширения.

Процедура Close

Синтаксис: Close (TextVar)

TextVar - имя файловой переменной типа text. TextVar не может быть именем предопределённой файловой переменной.

Процедура Close закрывает файл TextVar.

Пример:

Var Output : text; begin Assign (Output,'JB.DOC'); Rewrite (Output); Writeln (Output,'janek'); Close (Output) end

При явном определении имя Output не является именем предопределённой файловой переменной, поэтому использование процедур Assign и Rewrite правильное и обязательное.

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

Обращение к процедуре Close приведёт к вводу символа Ctrl-Z и выполнению действий, заканчивающих образование набора данных JB.DOC, содержащего последовательность символов: janek CR LF Ctrl-Z.

Функция Eof

Синтаксис: Eof (TextVar)

TextVar - имя файловой переменной типа text. Если TextVar имеет значение Input, то обращение может быть упрощено до Eof.

Функция Eof может применяться к файлу, связанному с множеством данных или с логическим устройством. В обоих случаях результатом функции будет величина типа boolean с значениями true или false.

Если файл связан с набором данных, то результатом функции Eof будет значение true, когда указатель файла находится перед Ctrl-Z или в конце. В противном случае результатом функции будет величина false.

Если файл связан с логическим устройством, то результатом функции Eof будет значение true когда последним интерпретируемым символом будет Ctrl-Z. В противном случае результатом функции будет величина false.

Пример:

Var ChrVar : char; begin Read (ChrVar); Writeln (Eof) end

Если при выполнении программы с консоли будут введены символы Ctrl-Z и CR, то будет выведено сообщение FALSE.

Это произойдёт потому, что символ Ctrl-Z будет проигнорирован, т.е. результатом функции Eof будет величина со значением false.

Функция SeekEof

Синтаксис: SeekEof (TextVar)

TextVar - имя файловой переменной типа text. Если TextVar имеет значение Input, то обращение может быть упрощено до SeekEof.

Действие функции SeekEof аналогично действию функции Eof. Будут пропущены пробелы, знаки табуляции, CR и LF, результат будет таким же, как и для функции Eof.

Пример:

Var TxtVar : text; begin Assign (TxtVar,'STRANGE.DOC'); Reset (TxtVar); Writeln (SeekEof (TxtVar)) end

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