Простой способ перехватить Exception

Delphi , Синтаксис , Ошибки и Исключения

Создайте метод для формы, перехватывающий исключения. Этот метод будет вызываться обработчиком OnException объекта Application. В вашем методе проверьте, тот ли это исключение, что вы ожидаете, например EDatabaseError. Почитайте on-line help для события OnException. Там есть информация, как вызвать собственный метод для события.

procedure TForm1.MyExcept(Sender: TObject; E: Exception);
begin
  if E is EDatabaseError then
    MessageDlg('Поймали exception',
      mtInformation, [mbOk], 0)
      { это не то, сделать raise }
  else
    raise E;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExcept;
  { здесь вы указываете, что событие OnException выполнит ваш метод }
end;

Метод перехвата исключений в Delphi позволяет создавать обработчик для события OnException объекта Application, который вызывает собственный метод для проверки типа исключения и вывода соответствующего сообщения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::