118______________________________________________ 2

   My Assert     
 :

MyAssertfA < 1300, " = " +FloatToStr(A) + ", i = " + IntToStr(i));

      ,   
   ,    ,   ;

  .     ,    .
    

ttdefine NDEBUG

 , ,    ,      
 ,  .    -
     :

ttifndef NDEBUG

 
#endif

     ,  -
     .  C+4-Builder   -
 ,   ,   TMemo  
  .         ,  -
    .     
  ,      .    -
,          ,   
    ,     .

//   

TForm * FDebug;

//    

TMemo * Memol;

//-

void   fastcall TFormI::FormCreate(TObject *Sender)

{       

ftifndef NDEBUG

//        

FDebug = new TForm(this);

FDebug->Caption = "";

Memol = new TMemo(FDebug);

Memol->Parent = FDebug;

Memol->ScrollBars = ssVertical;

Memol->Align = alclient;

FDebug->Show() ;

#endif

>

//-

void   fastcall TFormI::FormDestroy(TObject *Sender)
(

#ifndef NDEBUG
//  
FDebug->Release();

ttendif
i

//:-

void_fastcall TFormI::ButtonlClick(TObject *Sender)
{

for(int i = 0; i < 50; i++)

(
A *= 10000;

ftifndef NDEBUG
// 