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

ВИДЕОКУРС
выпущен 4 ноября!


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

БОЛЬШОЙ FAQ ПО DELPHI



Обработка исключительных ситуаций 2


 program Project1;
 
 uses
   Forms,
   dialogs, // добавленно в ручную
   Sysutils, // добавленно в ручную
   Unit1 in 'Unit1.pas' {Form1};
 
 {$R *.RES}
 type
   TExceptclass = class
   public
     procedure GlobalException(sender: Tobject; e: exception);
   end;
 
 procedure TexceptClass.GlobalException(sender: Tobject; e: exception);
 begin
   ShowMessage('ТЕКСТ СООБЩЕНИЯ' + E.ClassName + ':' + E.Message +
     #13#10'ВСЕ ПЛОХО')
 end;
 
 begin
   with TExceptClass.Create do
   begin
     Application.OnException := GlobalException;
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
   end;
 end.
 




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



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



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


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