Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
1-1105773319
Dr. Genius
2005-01-15 10:15
2005.01.30
Из BMP в TGA, PCX


4-1102951073
The Scorpion
2004-12-13 18:17
2005.01.30
Уведомление DLL_PROCESS_DETACH


14-1105583894
Kerk
2005-01-13 05:38
2005.01.30
lol. htaccess magic


1-1106032466
SveT
2005-01-18 10:14
2005.01.30
Заставка при запуске


1-1105706775
Black_Fury
2005-01-14 15:46
2005.01.30
Как работать с классом TStrings