Программирование на языке 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+}

Номер ошибкиОписание ошибкиГенерирующие процедуры2)
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

on_load_lecture()

Перейти к вопросам »

  Если Вы заметили ошибку - сообщите нам.  
Страницы:

« |

1



|

2

|

3

|

4

|

вопросы | »

|

учебники

|

для печати и PDA

Курсы | Учебные программы | Учебники | Новости | Форум | Помощь



Телефон: +7 (495) 253-9312, 253-9313, факс: +7 (495) 253-9310, email: info@intuit.ru

© 2003-2007, INTUIT.ru::Интернет-Университет Информационных Технологий - дистанционное образование



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