Процедуры и функции для работы с файлами
Append
Синтаксис:
procedure Append(var F: text);Действие:
Открывает существующий файл, связанный с файловой переменной f в режиме добавления в конец файла. При попытке открыть несуществующий файл появляется ошибка времени выполнения программы.
Assign
Синтаксис:
мprocedure Assign(var F; ИмяФайла: string);
Действие:
Связывает файловую переменную г с конкретным файлом.
Close
Синтаксис:
procedure Close(var F) ;
Действие:
Закрывает файл, связанный с файловой переменной к>
EOF
Синтаксис:
function EOF(var F) : boolean;
Действие:
Проверяет, не достигнут ли конец файла (end of file) при чтении из файла, связанного с файловой переменной f. Если указатель
чтения достиг конца файла, то функция eof возвращает значение true, в противном случае — false.Erasre
Синтаксис:
procedure Erase(var F) ;Действие:
Уничтожает файл, имя которого связано с файловой переменной F.
IOResult
Синтаксис:
function lOResult: integer;Действие:
Возвращает код результата последней выполненной операции файлового ввода-вывода (в том числе открытия и закрытия файла). Если операция ввода-вывода выполнена успешно, функция возвращает ноль.
( Примечание ^
Чтобы программа могла использовать функцию lOResult, надо перед инструкциями, в результате которых может возникнуть ошибка ввода-вывода, поместить директиву {$1-}, а после этих инструкций —директиву {$!+}.
Reset
Синтаксис:
procedure Reset(var F [:file; RecSize: word]);Действие:
Открывает существующий файл. Тип файла может быть любым. Если элементы файла не относятся к одному из стандартных типов, то параметр RecSize задает длину записи (в байтах). При попытке открыть несуществующий файл возникает ошибка времени выполнения.
Rewrite
Синтаксис:
procetfbure Rewrite(var F [:file; RecSize: word]);Действие:
Создает и открывает файл, имя которого связано с файловой переменной г. Если файл с таким именем уже существует то процедура Rewrite его уничтожает и создает новый.
