TryTabl.Post; Except
Begin
On
EDatabaseError do
ShowMessage('Не могу отправить данные (выполнить Post)'); (Sender AS
TDBEdit).SetFocus; End
; {Begin} End
,
{Try}
Я осуществляю синтаксический разбор Error и вновь генерирую исключение (передаю по иерархии следующему обработчику объектов исключительных ситуаций), если я больше не хочу иметь с ним дела. Если использовать:
OnE : EDatabaseError do
...
то можно получить значение E.Error. Реально, имя свойства с текстом ошибки должно быть похоже на что-то типа E.Message (уточните в электронной справке).
OnEDatabaseError do
begin
ShowMessage('Не могу отправить данные'); Edit1.setFocus; end
;