Assigned

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 20:51, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.