Советы по Delphi


              

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


    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]



Содержание  Назад  Вперед