2015-06-04
428
Файл для чтения инициируется процедурой
RESET (<файловая переменная>);
<файловая переменная> - переменная, связанная ранее процедурой ASSIGN с существующим файлом или логическим устройством.
Переменная-указатель, связанная с этим файлом, указывает на начало файла, т.е. на компонент с порядковым номером 0.
Если делается попытка инициировать чтение из несуществующего файла или логического устройства PRN, то возникает ошибка исполнения. Она может быть сообщена программе с помощью встроенной функции IORESULT типа WORD, которая имеет в этом случае ненулевое значение.
Var
F:file of real;
-----------------
ASSIGN (f, 'myfile.dat');
{$I-} {отключить контроль ошибок ввода-вывода}
Reset (f);
{$I+} {включить контроль ошибок ввода-вывода}
If IOResult <> 0 then
----------------------- {ошибка – файла нет}
Else
----------------------- {нет ошибки – файл существует}
Если не дать директиву {$I-}, то это приведет к аварийному завершению программы.
Файл для записи инициируется процедурой
REWRITE (<файловая переменная>);
Процедура создает и открывает новый файл.
Режим чтение-запись существует только для типизированных и бестиповых файлов (открывается как RESET (для чтения), но можно писать с помощью Write).
Процедуры открытия (инициации) можно многократно применяться к одному и тому же файлу. Если он открыт, то он автоматически закрывается. Повторный вызов RESET устанавливает переменную-указатель на первый элемент. Повторное обращение к REWRITE сотрет текущее содержимое файла.
