Release

Vrací haldu do daného stavu.

Deklarace

procedure Release(var p: pointer);

Režim: Reálný, Chráněný

Poznámky: Neměla by být používána s FreeMem ani Dispose.

Viz také: Dispose

Vzorový příklad

{Mark.PAS}
{ Vzorový příklad pro Mark a Release }
uses Crt;
 var
   p : pointer;
   p1,p2,p3 : ^Integer;
 begin
   ClrScr;
   New(p1); { Alokuje Integer }
   Mark(p); { Uloží stav haldy }
   New(p2); { Alokuje další dva Integer }
   New(p3);
   Release(p); { Paměť, rezervovaná pro p2^ a
                 p3^, byla uvolněna ; p1^
                 může být stále použito }
 end.