Язык:
Русский
English
Mark (процедура)
Записывает состояние кучи в указатель.
Объявление
Procedure Mark(Var P : Pointer);
Ограничения
Не должна использоваться совместно с FreeMem или Dispose.
Режим
Real, Protected
Смотри также
Пример
Язык:
Русский
English
{Mark.PAS}
var
P : Pointer;
P1, P2, P3 : ^Integer;
begin
New(P1); { Распределяем память под Integer }
Mark(P); { Сохраняем состояние кучи }
New(P2); { Распределяем память под ещё два числа типа Integer }
New(P3);
Release(P); { Память, резервированная для P2^ и P3^,
освобождается, а память для P1^ всё ещё
может быть использована }
end.
P : Pointer;
P1, P2, P3 : ^Integer;
begin
New(P1); { Распределяем память под Integer }
Mark(P); { Сохраняем состояние кучи }
New(P2); { Распределяем память под ещё два числа типа Integer }
New(P3);
Release(P); { Память, резервированная для P2^ и P3^,
освобождается, а память для P1^ всё ещё
может быть использована }
end.