Правила форума
Assigned.PASLanguage:
Русский
English
{Assigned.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Assigned function. }
var P: Pointer;
begin
P := nil;
if Assigned (P) then Writeln ('You won't see this');
P := @P;
if Assigned (P) then Writeln ('You'll see this');
end.
::
::
::
