Пользователь вводит с клавиатуры имя файла. Его надо открыть. А если он не существует на диске? Программа генерирует ошибку и завершает работу. На Делфи все просто, а вот на Паскале... Как обработать эту ошибку ввода-вывода? ???
Clane
18.04.2003 17:47
IoResult. Если эта функция возвращает 0, значит файл не существует. Вот небольшой пример :
var f: file of char; begin assign(f,'my_file.dat'); {$I-} {отключаем контроль ошибок ввода-вывода} reset(f); {$I+} if IOResult<>0 then .....{файл не существует} else .... {файл существует} end.
AlaRic
18.04.2003 19:41
Кто бы знал как мне приятно видеть на форуме представительниц слабого пола В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....
trminator
18.04.2003 21:53
Цитата
В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....
Ага, зато если файл существует, он будет стерт. Может, его только прочитать надо, а не писАть в него ;)
AlaRic
18.04.2003 22:04
Цитата
Ага, зато если файл существует, он будет стерт. Может, его только прочитать надо, а не писАть в него ;)
Согласен!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.