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;
|
|
Перехват исключений базы данных