关于as 和 is

Object Pascal提供了两个运算符as和is，用它们通过RTTI能对对象进行比较和强制类型转换。

关键字as是类型转换的一种新的形式。它能把一个基层的对象强制类型转换成它的派生类，如果转换不合法就产生一个异常。假定有一个过程，想让它能够传递任何类型的对象，它应该这样定义：

    Procedure Foo(AnObject :Tobject);

在这个过程如果要对AnObject进行操作，要把它转换为一个派生对象。假定把AnObject看成是一个TEdit派生类型，并想要改变它所包含的文本，用下列代码：

 (AnObject as Tedit).text := 'wudi_1982';

能用比较运算符来判断两个对象是否是相兼容的类型，用is运算符把一个未知的对象和一个已知类型或实例进行比较，确定这个未知对象的属性和行为。例如，在对(AnObject 进行强制类型转换前，确定(AnObject 和TEdit是否指针兼容：

if (AnObject is Tedit) then
 Tedit(AnObjject).text := 'wudi_1982';

注意在这个例子中不要再使用as进行强制类型转换，这是因为它要大量使用RTTI，另外还因为，在第一行已经判断Foo就是TEdit，可以通过在第2行进行指针转换来优化

判断指针是否为空

delphi函数指针 只有@@p才代表了函数指针本身的地址

assigned(p) 判断是否为空

或者用 @p=nil 来判断函数指针是不是为空