Процедура Release

Возвращает кучу в заданное состояние.

Объявление:

Procedure Release(Var P : Pointer);

Режим: 

Замечания:
Нельзя использовать совместно с FreeMem или Dispose.

Пример:

 Var        P : Pointer;
   P1, P2, P3 : ^Integer;
 
 Begin
  New(P1); { Распределяем память под Integer }
  Mark(P); { Сохраняем состояние кучи }
  New(P2); { Распределяем память под еще два числа типа Integer }
  New(P3);
  Release(P); { Память, резервированная для P2^ и P3^
                освобождается, а память для P1^ все еще
                может быть использована }
 End.
 

См. также: 



Реклама: