Правила форума
Mark.PASЯзык:
Русский
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.
::
::
::
