Вытащить сообщение Exception IB в Delphi

← →
samalex (2008-11-25 14:37) [0]

Уважаемые знатоки!!!
1. Создал в IB Exception: CREATE EXCEPTION EXIST_INPUT_N_MKP Такой № уже заведен";
2. Подключил его в триггер:
CREATE TRIGGER DATA_EXAM_AI0 FOR DATA_EXAM
ACTIVE AFTER INSERT OR UPDATE POSITION 0
AS
begin
IF (EXISTS(select * from data_zel dz where upper(dz.input_n_mkp)=upper(NEW.input_n_mkp))) then
begin
exception EXIST_INPUT_N_MKP;
end
/* Trigger text */
end
3. Из Delphi вызываю хранимую процедуру для обновления таблицы.
try
ExecProc;
except
ShowMessage("Ошибка");
exit;
end;
4.1. Как мне вытащить в Delphi текст из exception?
Типа, ошибка из-за этого произошла.
4.2. Узнать название exception для Deiphi, чтобы использовать
try
...
except
on EZeroDivide do HandleZeroDivide;
on EOverflow do HandleOverflow;
on EMathError do HandleMathError;
end;

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

← →
Сергей М. © (2008-11-25 14:39) [1]

except
on E:Exception do ShowMessage(e.ClassName + " " + e.Message);
end;

← →
samalex (2008-11-25 15:03) [2]

Большое спасибо!!!

Вытащить сообщение Exception IB в Delphi Найти похожие ветки