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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий