Иллюстрированный самоучитель по Turbo Pascal для начинающих

Процедуры и функции для работы с файлами

Append

Синтаксис:

procedure Append(var F: text);

Действие:

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

Assign

Синтаксис:

procedure Assign(var F; ИмяФайла: string);

Действие:

Связывает файловую переменную г с конкретным файлом.

Close

Синтаксис:

procedure Close(var F);

Действие:

Закрывает файл, связанный с файловой переменной f.

EOF

Синтаксис:

function EOF(var F): boolean;

Действие:

Проверяет, не достигнут ли конец файла (end of file) при чтении из файла, связанного с файловой переменной f. Если указатель чтения достиг конца файла, то функция eof возвращает значение true, в противном случае – false.

Erasre

Синтаксис:

procedure Erase(var F);

Действие:

Уничтожает файл, имя которого связано с файловой переменной F.

IOResult

Синтаксис:

function IOResult: integer;

Действие:

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

Примечание
Чтобы программа могла использовать функцию lOResult, надо перед инструкциями, в результате которых может возникнуть ошибка ввода-вывода, поместить директиву {$1-}, а после этих инструкций – директиву {$1+}
.

Reset

Синтаксис:

procedure Reset(var F [:file; RecSize: word]);

Действие:

Открывает существующий файл. Тип файла может быть любым. Если элементы файла не относятся к одному из стандартных типов, то параметр RecSize задает длину записи (в байтах). При попытке открыть несуществующий файл возникает ошибка времени выполнения.

Rewrite

Синтаксис:

procetfbure Rewrite(var F [:file; RecSize: word]);

Действие:

Создает и открывает файл, имя которого связано с файловой переменной f. Если файл с таким именем уже существует то процедура Rewrite его уничтожает и создает новый.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.