使用ObjPtr检测2个对象变量是否指向同一对象

判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下：

Ifobj1Isobj2Then...

但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理：

IfObjPtr(obj1)=ObjPtr(obj2)Then...

后者的执行速度将比前种方法快40多。但是请注意，2种方法原本就是很有效率的，只有在时间要求非常严格的上百成千次的循环中，才会体现出这种差别。