Assigned 函数

Assigned
测试空指针或过程变量没有赋值

单元
System

语法
function Assigned(const P): Boolean;

描述
Assigned 用来判断指针或这个过程P是nil。P必须是一个指针或过程变量。 Assigned(P) 相当测试指针变量

P<>nil ，或 过程变量@P<>nil。
如果P 是nil 返回false ，否则位true
注意
Assigned 不能探测一个指针数据的有效
var P: Pointer;

begin
  P := nil;
  if Assigned (P) then Writeln ('You won''t see this');
  GetMem(P, 1024); {P valid}
  FreeMem(P, 1024); {P no longer valid and still not nil}
  if Assigned (P) then Writeln ('You''ll see this');
end;