Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

перехват ошибок   Найти похожие ветки 

← →
Dracula ©   (2005-01-18 18:40) [0]

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;

Мне надо перехватывать ошибки которые иногда вызывает моя программа, я нашёл вышепреведённый код, но не могу запустить его в дельфи. Добавляю модуль BDE. Может кто чего подскажет для  delphi7, как можно перехватить любую ошибку.

---

← →
Юрий Зотов ©   (2005-01-18 19:14) [1]

Application.OnException. Пример в справке.

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.037 c