Přidáno 809 bajtů,
5. 10. 2012, 13:39 Provádí test, aby zjistila, zda pointrová nebo procedurální proměnná je nil.
;Deklarace
function Assigned(var P): Boolean;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:P musí být proměnným odkazem pointrového nebo procedurálního typu. [[Assigned]](P) odpovídá testu P <> nil v případě pointrové proměnné, a testu @P <> [[nil]] v případě procedurální proměnné.
:Vrací [[True]], jestliže P není [[nil]], nebo [[False]], jestliže je [[nil]].
Vzorový příklad
{Assigned.PAS}
{Vzorový příklad pro funkci Assigned . }
{ Pro Windows: }
{ uses WinCrt; }
var P: Pointer;
begin
P := nil;
if Assigned (P) then Writeln ('Toto neuvidíte');
P := @P;
if Assigned (P) then Writeln ('Toto uvidíte');
end.
[[Category:System]]
[[Category:Funkce System]]