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;

Эта запись была опубликована 14.12.2007в 20:37. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.