![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблемі с ON E: exception
Babenko Alexey © (2003-07-31 13:51:00)Почему не работает следующий код
var i: Integer;
begin
i := 0;
TRY
i := i div I;
EXCEPT ON E: exception
do begin
ShowMessage( 'Exception: ' + E.Message);
end;
END;
end;
Ну перехватил он ошибку, а толку мало. Всё равно прога вывалилась.
хотя такой пашет нормально
var i: Integer;
begin
i := 0;
TRY
i := i div I;
EXCEPT
ShowMessage( 'Exception: ' );
END;
end;
Проблема в последнем примере в том, что я не знаю какая ошибка произошла.
Кладов (2003-08-01 21:24:00) [1]Вообще, когда я делал err.pas, строчку
ExceptClsProc := @GetExceptionClass;
просто закомментарил, и подписал:
// {-} ExceptClsProc is used only in "except on" implementation. If error code
// is catched by another way, it is not needed.
т.е. почему-то решил на тот момент, что on E: Exception не потребуется. Потом было изменение, которое позволяло обработать on exception для случая собственного raise, а процедуру GetExceptionClass то ли не нашел как подправить, то ли просто забыл про это закомментаривание.
Короче, возьмите исправленный kol_err.zip, теперь можно обрабатывать on exception, как написано было в описании, и теперь не только для собственных возбуждений по raise.
mdw (2003-07-31 21:14:00) [2]Да, действительно. Причем не работает и просто
EXCEPT
ON E: exception do;
END;
скорее всего это ошибка, к автору нужно обращаться.
Babenko Alexey (2003-07-31 19:56:00) [3]Не ві не поняли. Всё у меня подключенно. Exceptions перехватываются, я о них узнаю. Но если я пишу как в 1 варианте, то после перехвата прога благополучно вываливается. Если же как во 2 варианте, то всё класно работает, но я не могу прописать в логи какая именно ошибкка произошла
mdw (2003-07-31 14:03:00) [4]Подключи модуль Err.pas