Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Перехват ошибки

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnException := MyExcept;

end;

Procedure TForm1.MyExcept(Sender:TObject; E:Exception);

begin

If E is EDatabaseError then

MessageDlg('Перехвачено исключение', mtInformation, [mbOk], 0)

else

{ если это не та ошибка, которую вы ищете, передайте на обработку дальше }

end;

[000425]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК