Можно ли принудительно очищать память

[komar]

<div class='XPPtop'>X++</div><div class='XPP'>[color=:blue]static[/color] [color=:blue]void[/color] SmartHeap(Args _args)

{
  HeapCheck   hc;
  [color=:blue]int[/color]         i, pageSize, newPageSize;
 ;

  hc = [color=:blue]new[/color] HeapCheck();
  i = hc.poolCount();
  [color=:blue]while[/color] (i>0)
  {
      [color=:blue]print[/color] [color=:red]'Data for pool no = '[/color] + int2str( i );
      [color=:blue]print[/color] [color=:red]' &nbspFixedBlockSize = '[/color] + int2str( hc.fixedBlockSize(i) ) + [color=:red]' &nbspSmallBlockSize = '[/color] + int2str( hc.smallBlockSize(i) );
      pageSize = hc.pageSize(i);
      [color=:blue]if[/color] (pageSize < 32768)
      {
          newPageSize = 2 * pageSize;
          hc.pageSize( i, newPageSize );
      }
      [color=:blue]else[/color]
          newPageSize = pageSize;
      [color=:blue]print[/color] [color=:red]' &nbspOld PageSize = '[/color] + int2str( pageSize ) + [color=:red]'   &nbspNew PageSize = '[/color] + int2str( newPageSize );

      i--;
  }
  [color=:blue]pause[/color];
}</div>

Це с бывшего technet-а