是否可以使用Delphi泛型TInterfaceList？

Question

德爾福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; 

我已經沒有任何問題，然而，卻是有什麼內在的風險這樣做呢？是否可以添加一個枚舉器來允許for循環在它上面工作？如果沒有問題，我想知道爲什麼RTL中沒有定義類似的東西。

Answer 1

請勿使用TInterfaceList作爲基類。

如果你做單線程工作，你可以使用TList<I: IInterface>來代替。性能會更好，因爲沒有內部鎖定。

如果你做多線程工作，TInterfaceList的公共接口是不合適的，因爲它是在VCL中實現的枚舉器的概念。有關更好的API以便安全地遍歷一系列事件的討論，請參閱this blog post。

如果您共享您的線程之間的接口列表，您應該儘可能縮短它的鎖定時間。一個好的方法是實現一個線程安全的方法，該方法返回調用線程的接口數組，然後可以安全地迭代，而不保持原始列表被鎖定。