перехват ошибок [D7]
Dracula © (2005-01-18 18:40:00)
procedure TForm1.HandleException(Sender: TObject; E:
Exception);
var
err: DBIResult;
begin
if E is
EDBEngineErrorthen
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;
Мне надо перехватывать ошибки которые иногда вызывает моя
программа, я нашёл вышепреведённый код, но не могу запустить его в
дельфи. Добавляю модуль BDE. Может кто чего подскажет для
delphi7, как можно перехватить любую ошибку.
Юрий Зотов (2005-01-18 19:14:00) [1]
Application.OnException. Пример в справке.
Наверх 
ЧАТ |
Орешник |
|
