318______________________________________________ 4

 Exception.     ,  
Exception     .

       Show-
Exception,     :

Application->ShowException(E) ;

 ,   ,   . 4.28. 
    ,      -
 .

,  -     ^^^^':,,.-^   ::::   ^'    ::     ::       I

_ ,      -        .                                 ^N^A^II  ' 'Owing point division by zero- ;i       'W^^m   1 is not a vaadtioataTa point value, '

 Show/Exception  -              '      ,"\;"    -W                     
   ()        Bfc-    i-=....-.........._ii. -1;!11';,     ::       ^^

   (6)        ", :., 1^^,=.)1                                   :

       ,
      .   
 .       -
     ClassName (. -
 1.6.6.2  1     TObject   15).  -
  OnException  , ,  :

void _fastcall TFormI::MyException(TObject *Sender, Exception *E)
(
AnsiString S = "  : ";

if (String(E->ClassName()) == "EZeroDivide")
S += "  ";

if(String(E->ClassName()) == "EOverflow")
S += "";

if(String(E->ClassName()) == "EInvalidArgument")
S += " ";

if(String(E->ClassName()) == "EConvertError")
S += "  ";

Appiication->MessageBox(S.c_str()," ",_) ;

}

 . 4.29   ,   .
     ,    . 4.28.
,     . 4.29,  
. 4.28.

,              / -  ; ^

/ \                    -                          '       ^Hr^^l  *    : "

   ()      .         ::,:

 ()                        as^'^E^Ea

'1:^^^' 'C^'^epb'4^*^'^ ' &?  '

.,, ^^\:^^ :/