БОЛЬШОЙ FAQ ПО DELPHI



Перехват исключений базы данных


 Try
   Tabl.Post;
 Except
   Begin
     On EDatabaseError do
       ShowMessage('Не могу отправить данные (выполнить Post)');
     (Sender AS TDBEdit).SetFocus;
   End; {Begin}
 End, {Try}
 

Я осуществляю синтаксический разбор Error и вновь генерирую исключение (передаю по иерархии следующему обработчику объектов исключительных ситуаций), если я больше не хочу иметь с ним дела. Если использовать:


 On E : EDatabaseError do...
 

то можно получить значение E.Error. Реально, имя свойства с текстом ошибки должно быть похоже на что-то типа E.Message (уточните в электронной справке).


 On EDatabaseError do
 begin
   ShowMessage('Не могу отправить данные');
   Edit1.setFocus;
 end;
 




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



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



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