Советы по 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]



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







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий