896  14

int   fastcall NewFreeMemfvoid* p)
{

dealloc = _msize(p);

Ndealloc ++;

return mm01d->FreeMem(p);

)

void* _fastcall NewReallocMem(void* p, int Size)
{

alloc += Size;

dealloc = _msize(p) ;

Nalloc++;

Ndealloc ++;

return mm01d->ReallocMem(p, Size);

)

fastcall TFormI::TForml(TComponent* Owner)
: TForm(Owner)

mmNew = new TMemoryManager();

mmOld = new TMemoryManager();

mmNew->GetMem = NewGetMem;

mmNew->FreeMem = NewFreeMem;

mmNew->ReallocMem = NewReallocMem;

GetMemoryManager(*mm01d) ;

SetMemoryManager(*mmNew) ;

void   fastcall TFormI::ButtonlClick(TObject *Sender)

(
Labell->Caption = "Nalloc = "+IntToStr(Nalloc)+

"Ndealloc = "+IntToStr(Ndealloc)+

"  " +IntToStr(alloc)

"  " +IntToStr(dealloc);

}

       Buttoni   Labell 
    .

14.17   C++  C++Builder

	 / 	
vastart	void vastart(valist , lastfix)     ,   ,     ; lastfix       	stdarg.h
vaarg	type vaarg(valist , type)        type       ;        vastart  vaarg	stdarg.h
vaend	void vaend(valist )         ,   va start  va arg	stdarg.h