delphi - Delphi通用的TInterfaceList是否可能？

在Delphi 2010中，我定义了一个通用的TInterfaceList，如下所示：

type

TInterfaceList<I: IInterface> = class(TInterfaceList)
  function GetI(index: Integer): I;
  procedure PutI(index: Integer; const Item: I);
  property Items[index: Integer]: I read GetI write PutI; default;
end;

implementation

function TInterfaceList<I>.GetI(index: Integer): I;
begin
  result := I(inherited Get(Index));
end;

procedure TInterfaceList<I>.PutI(index: Integer; const Item: I);
begin
  inherited Add(Item);
end;

我还没有遇到任何问题，但是这样做有天生的风险吗？是否可以向其添加枚举数以允许..in循环在其上工作？如果没有问题，我想知道为什么在RTL中还没有定义类似的东西。

最佳答案

不要将TInterfaceList用作基类。

如果您执行单线程工作，则可以使用TList<I: IInterface>代替。由于没有内部锁定，因此性能会更好。

如果您进行多线程工作，则TInterfaceList的公共接口是不合适的，因为枚举数的概念也是如此，因为它们是在VCL中实现的。有关更好的API进行安全迭代的讨论，请参见this blog post。

如果在线程之间共享接口列表，则应将其锁定得尽可能短。这样做的一个好方法是实现一个线程安全的方法，该方法将接口的数组返回到调用线程，然后可以安全地对其进行迭代，而无需保持原始列表的锁定。