|
|
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; | |