|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перехват ошибок в консольном приложении
try except end не пашут. Собрался создать текстовый документ на не существующем диске, обхватил код этой конструкцией. После запуска выскочило сообщение runtime error 3 at *****. Значит перехват не сработал. Какие есть варианты?
|
#2
|
|||
|
|||
Значит та функция, которой ты создаешь/открывешь файл не генерирует исключение. Тогда, скорее всего, она возвращает код ошибки.
Кароч. Код в студию. Существует масса способов работы с диском. Надо конкретно смотреть что ты используешь. |
#3
|
||||
|
||||
SysUtils убрал из uses
Пишу программы за еду. __________________ |
#4
|
||||
|
||||
Наоборот, нужно подключить SysUtils и пользоваться его функциями, вроде FileCreate и т. п. Если неохота, хотя бы включить "I/O cheching" в настройках компилятора. Хотя по умолчанию вроде и так включено.
|
#5
|
||||
|
||||
так будет понятнее:
Цитата:
Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Попробуй так
Код:
{$I-} AssignFile(f,Filename); reset(f) {$I+} if IOResult<>0 then Writeln('Error at opening file!'); Хорошо написанная программа не требует документации ICQ 9-184-668. |
#7
|
||||
|
||||
Добавь проверки FileExists/DirectoryExists, тем более они в сисутилсах.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |