Советы по Delphi



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


procedure TForm1.FormCreate(Sender: TObject);beginApplication.OnException := MyExcept;end;
Procedure TForm1.MyExcept(Sender:TObject; E:Exception);beginIf E is EDatabaseError thenMessageDlg('Перехвачено исключение', mtInformation, [mbOk], 0)else{ если это не та ошибка, которую вы ищете, передайте на обработку дальше }end;

[000425]




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