Правила форума
Assigned.PASЯзык:
Русский
English
{ Пример программы для функции Assigned }
var
P : Pointer;
begin
P := Nil;
if Assigned(P) then
WriteLn('Это вы не увидите');
P := @P;
if Assigned(P) then
WriteLn('А это - увидите !');
end.
P : Pointer;
begin
P := Nil;
if Assigned(P) then
WriteLn('Это вы не увидите');
P := @P;
if Assigned(P) then
WriteLn('А это - увидите !');
end.
::
::
::
