Как узнать код ошибки и вместо стандартного окна выдать свое?

← →
lightix (2003-03-25 13:15) [0]

Подскажите плз, как при возникновении ошибки узнать ее код и обработать (выдать свое окно с сообщением)?
например если на форме стоит таблица, дата соурс и дэбэгрид, при попытке внести значение не соотвестствующее типу данных.
Заранее благодарен.

← →
andrey_pst © (2003-03-25 13:33) [1]

try
...
except
...
MessageDlg("Ошибка." + #13 + "Текст ошибки:" + #13 + Exception(ExceptObject).Message, mtError, [mbOk], 0);
end;

ну а если хочешь поконкретнее:
try
...
except on EDatabaseError do
...
end;

← →
Clickmaker © (2003-03-25 13:34) [2]

Более универсально Application.OnException

← →
AlexVit © (2003-03-25 13:47) [3]

Можно так:
procedure TForm1.FormCreate(Sender: TObject); begin ... Application.OnException := AppException; ... end; procedure TForm1.AppException(Sender: TObject; E: Exception); begin ... if Copy(E.Message, 1, 9) = "ORA-03113" then Application.MessageBox("Твое описание ошибки", "Внимание", MB_OK) else Application.ShowException(E) ... end;

Вместо 3-го параметра функции Copy и вместо "ORA-03113" поставь свои данные. Так можно обработать любую ошибку.

>AlexVit © (25.03.03 13:47)
Можно и сразу перхватывать исключение и подставлять свое уточняющее сообщение. Помогает при отладке
procedure TMyForm.AnyProc(Sender : TObject); begin try except On E:Exception do begin E.Message := E.Message + #13#10 + "Ошибка произошла в процедуре AnyProc"; raise; end; end; end;

Как узнать код ошибки и вместо стандартного окна выдать свое? Найти похожие ветки