Процедура Release

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

Объявление:

Procedure Release(Var P : Pointer);

Режим:

Protected,  Real

Ограничения:

Нельзя использовать совместно с 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.