Правила форума
Release (процедура)Язык:
Русский
English
Release (процедура)
Возвращает кучу в заданное состояние.
Объявление
Procedure Release(Var P : Pointer);
Режим
Real, Protected
Замечания
Нельзя использовать совместно с FreeMem или Dispose.
Смотри также
Пример
Язык:
Русский
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.
::
::
::
