БОЛЬШОЙ FAQ ПО DELPHI



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

Нет повести печальнее на свете, чем повесть о заклинившем Reset'е.


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ