Delphi的接口陷阱

领测软件测试网

End;

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

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

interList.Add(TC2.Create);

或者

Obj2 := TC2.Create;

interList.Add(Obj2);

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

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

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

所以我建议：

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

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

文章来源于领测软件测试网 https://www.ltesting.net/