Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
обновлён 2 декабря!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как обработать ошибку прежде, чем программа уведомит пользователя

Программа для тех, кто хочет быть в курсе новостей о появлении новых вирусов. Каждый день присылает вам на компьютер новый вирус.

Для фильтрации, к примеру, EConvertError, вы можете создать собственный обработчик исключений:

Приблизительно так:

Объявите следующую процедуру в объекте вашей главной формы:


 procedure MyException(Sender:TObject; E:Exception);
 

Затем делайте так:


 procedure TMyForm.MyException(Sender:TObject; E:Exception);
 begin
   if (E.ClassType.ClassName='EConvertError') then
   begin
     {как-то общаемся с пользователем по-поводу ошибки}
   end
   else
     {позволяем Delphi показать ошибку}
     Application.ShowException(E);
 end;
 

Наконец, позвольте приложению воспользоваться вашим новым обработчиком исключений:


 procedure TMyForm.FormCreate(Sender: TObject);
 begin
   Application.OnException := MyException;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS