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

Советы » Компоненты и Базы данных » Перехват исключений базы данных

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 © 2022 - All Rights Reserved - www.delphirus.com