Delphi的接口陷阱

但是这毕竟是违反编码习惯的，而且每次使用都要记得作，不记得作也可能不会马上出错，所以有可能成为隐患。

最后，就是使用TList。不过TList中是指针，所以Add时必须这样

procedure XXX.Add(AIntf: I1)

Begin

InterList.Add(Pointer(AIntf));

End;

由于它本来就保存的是指针，所以释放时也不需要特殊处理。

好像比较完美，但是还是有一个陷阱，如果你写了这样的代码会怎么样呢？

interList.Add(TC2.Create);

或者

Obj2 := TC2.Create;

interList.Add(Obj2);

错！因为保存的是纯粹的指针，所以转化为接口时，对象引用到接口引用的地址转换没有进行（它也不知道如何进行），所以调用接口声明的方法时就又是一个非法地址访问错误。只能这么写：

interList.Add(Pointer(I1(TC2.Create)));

虽然有些麻烦，相比之下这已是最佳方案（我所知的）了。因为你如果你忘记转会在第一次调用时就出错，比较容易发现错误（相比于使用array）。

所以我建议：

1， 使用Tlist来管理接口引用。

2， 增加时要把对象转型成Interface再转型成Pointer，如果本来就是接口引用的话直接转为Pointer即可。

3， 对于没有使用Tlist来管理的接口引用。对于接口的引用要用下面的方法手动置为nil：Pointer（IntfRef）:= nil;

另外，

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