[原创] Delphi Assigned函数的使用和介绍

Assigned 函数在Delphi 的单元中并不能找到，网上有人评论说它并不是一个真正的函数，至今我也没有找到不能证明它为什么不是函数，但可以肯定的是，它确实可以当做函数来使用

原型：function Assigned(var P ): Boolean;

概念：Assigned 用来确定引用的指针或过程是否为空(nil)，这个P必须是指针或者引用过程类型的变量，Assigned (P) 对应指针变量的测试 P<>nil，过程变量的 @P<>nil，如果P为nil，Assigned返回False，否则返回True。

典型应用：

if not Assigned(Form1) then 
begin 
   Form1:= TForm1.Create(Application); 
   Form1.ShowModal; 
   Form1.Free; 
end; 

以上创建之后的窗体采用 Form1.Free 释放，实际上窗体还是存在的，并没有从内存中完全释放。

两种方法纠正：

　　1、在Form1窗体中 FormDestroy 销毁事件中 加入 Form1:=nil

　　2、把Form1.Free 换成 FreeAndNil(Form1);  ， 参考点击超链接

 

创建日期：2019.12.27

来源：https://www.cnblogs.com/guorongtao/p/12107128.html