Процедура Mark

Записывает состояние кучи в указатель.

Объявление:

Procedure Mark(Var P : Pointer);

Режим:

Real, Protected

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

Не должна использоваться совместно с FreeMem или Dispose.

Пример:

{ Пример программы для процедур Mark и Release }

Var        P: Pointer;
  P1, P2, P3: ^Integer;

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