Программирование на языке Pascal



         

Пример использования директив {$I}


flag:= false; write('Введите имя файла: '); repeat readln(s); {s:string} {$I-} assign(f,s); reset(f); case IOResult of 0: flag:= true; 3: write('Путь к файлу указан неверно. Измените путь: '); 5: write('Доступа к файлу нет. Измените имя файла: '); 152: write('Такого диска нет. Измените имя диска: '); else write('Такого файла нет. Измените имя файла: '); end; until flag; {$I+}

Номер ошибкиОписание ошибкиГенерирующие процедуры6)
2 File not foundФайл не найденappend, erase, rename, reset, rewrite
3 Path not foundДиректория не найденаappend, chdir, erase, mkdir, rename, reset, rewrite, rmdir
4 Too many open filesОткрыто более 15 файлов одновременноappend, reset, rewrite
5 File access deniedОтказ в доступе к файлуappend, blockread, blockwrite, erase, mkdir, read, readln, rename, reset, rewrite, rmdir, write, writeln
12 Invalid file access codeПопытка использовать текстовый файл как типизированный или наоборотappend, reset
16 Cannot remove current directoryНевозможно удалить заданную директориюrmdir
100 Disk read errorПопытка чтения после конца файлаread, readln
101 Disk write errorОшибка записи на диск (диск полон)close, write, writeln
102 File not assignedФайл не назначенappend, erase, rename, reset, rewrite
103 File not openФайл не открыт{бинарные файлы}blockread, blockwrite, close, eof, filepos, filesize, read, seek, write
104 File not open for inputФайл не открыт для ввода {текстовые файлы}eof, eoln, read, readln, seekeof, seekeoln
105 File not open for outputФайл не открыт для вывода {текстовые файлы}write, writeln
106 Invalid numeric formatНеправильный числовой формат {текстовые файлы}read, readln
152 Drive not readyЗадано неверное имя дискаappend, erase, rename, reset, rewrite

  1)

  Напомним, что эти два устройства объединяются под общим наименованием "консоль".

  2)

  См. лекцию 1.

  3)

  См. лекцию 2.

  4)

  Более правильно было бы сказать: "в файле, подключенном к файловой переменной f", однако для краткости здесь и далее мы будем использовать упрощенный вариант, полагая, что это не вызовет никаких недоразумений.

  5)

  См. лекцию 1.

  6)

  См. также лекцию 7.

© 2003-2007 INTUIT.ru. Все права защищены.




Содержание  Назад