Проблема с ошибкой в бд (ПАРАДОКС)

[DuM4uK]

Здравствуйте уважаемые форумчане.

В общем сделал простенькую бд(paradox). Вывожу через DBGrid.
Определил некоторые столбцы обязательными для заполнения. Если я не заполню в одном из них строку, то вылетает ошибка "Field 'F.I.O' must have а value". Что за ошибка это мне конечно же известно.

Так вот такой Вопрос:
Как мне перехватить эту ошибку и выдать свою???

Если можно по подробнее или на примере.

Заранее благодарен.

[Stilet]

Если я не заполню в одном из них строку

Код в студию.

[DuM4uK]

Сообщение от Stilet

Код в студию.

Извеняюсь за наглость, не в обиду.
Дело не в коде тогда бы я не спрашивал. Дело в том что когда вылетает ошибка в Delphi не показывается точка останова на каком этапе отладки программы вылетает ошибка.
Что Вы по этому поводу думаете???

[raxp]

чтоб перехватить сообщение об ошибке нужно лезть в компонент (обычно там генерируют E.Exception.create) котрий вы юзаете или ставить хук на все сообщения приложения

могу привести пример, что в некоторых есть свойства и параметры в обработчике скажем OnERROR которыми можно управлять... для примера
или юзайте try except тут ваше сообщение end - последнее не факт что сработает, зависит от конкретных ваших действий... так что код в студию

[DuM4uK]

Вот нашол решение своей проблемы "универсальный Перехват ошибок DBEngine" если кому-то понадобится.
Код рабочий 100%, проверенно мной.

{Секция Interface}
procedure HandleException(Sender: TObject; E: Exception);

{Секция Implementation}
procedure TForm1.HandleException(Sender: TObject; E: Exception);
var err : DBIResult;
begin

if E is EDBEngineError then begin
err := (E as EDBEngineError).errors[(E as EDBEngineError).errorcount-1].errorcode;
if (err = DBIERR_KEYVIOL) then
showMessage('Ошибка Key violation!')
else if (err = DBIERR_LOCKED) then
showmessage('Запись блокирована другим пользователем')
else if (err = DBIERR_FILELOCKED) then
showmessage('Таблица блокирована кем-то еще')
else
showmessage('Другая ошибка DB')
end
else
showmessage('Упс!: '+E.Message);
end;

регестрируем обработчик исключений:

procedure TForm1.FormCreate(Sender: TObject);
begin

Application.onException:=HandleExce ption;
end;

И последний штрих не забудте включить DBIERRS в список используемых модулей. Чтобы выше указанный код заработал.