Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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


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;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011