Delphi的接口陷阱

try

Intf1 := OBJ2;

Intf1.DO;

Finally

OBJ2.Free;

Intf1 := nil;

End;

会怎么样呢？会出非法地址访问错误。为什么？上面说过把接口引用设为nil时，会调用_IntfClear，而_IntfClear又会调用对象的_Release，而这时这个对象已经释放了，自然就出非法地址访问错误啦。

有人说多此一举吗，接口引用只是个地址，没必要手动设为nil。

OBJ2 := TC2.Create;

try

Intf1 := OBJ2;

Intf1.DO;

Finally

OBJ2.Free;

End;

结果可能还会出你的意料，还是非法地址访问错误。为什么？因为Delphi编译器耍了个小聪明，它认为你忘记把这个地址引用置为nil了，所以你会自动给你加上，看来Delphi编译器聪明过头了J。

怎么解决呢？

方法1，先把接口引用置为nil，再释放对象。

Intf1 := nil;

OBJ2.Free;

方法2，把接口引用强制转成指针类型再置为nil。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!