Mark

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Zaznamená stav haldy do proměnné typu ukazatel.

Deklarace
procedure Mark(var p: pointer);
Omezení
Neměla by být používána s FreeMem ani Dispose.
Režim
Reálný, Chráněný
Viz také
Dispose
FreeMem
GetMem
New
Release


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.