Turbo Pascal для начинающих



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

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 его уничтожает и создает новый.

Назад Начало Вперед



Книжный магазин