Ist in Delphi eine generische TInterfaceList möglich?

Question

In Delphi 2010 habe ich eine generische TInterfaceList wie folgt definiert:

type

TInterfaceList = 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.GetI(index: Integer): I;
begin
  result := I(inherited Get(Index));
end;

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

__

Bisher hatte ich keine Probleme damit, aber gibt es etwas grundsätzlich Risikoreiches daran? Wäre es möglich, einen Enumerator hinzuzufügen, um ..in-Schleifen darauf zu ermöglichen? Wenn nichts dagegen spricht, frage ich mich, warum etwas Ähnliches noch nicht in der RTL definiert wurde.

__

Answer 1

Verwenden Sie TInterfaceList nicht als Basisklasse.

Wenn Sie nur single-threaded arbeiten, könnten Sie stattdessen einfach eine TList verwenden. Die Leistung wäre besser, da keine interne Sperrung erforderlich ist.

Wenn Sie Multi-Threaded-Arbeit durchführen, ist die öffentliche Schnittstelle von TInterfaceList ungeeignet, ebenso wie das Konzept von Enumeratoren, wie sie im VCL implementiert sind. Für eine Diskussion über eine bessere API zum sicheren Iterieren über eine Sammlung von Elementen siehe diesen Blog-Beitrag.

Wenn Sie Ihre Liste von Schnittstellen zwischen Threads teilen, sollten Sie sie so kurz wie möglich sperren. Eine gute Möglichkeit hierfür ist die Implementierung einer thread-sicheren Methode, die einem Array von Schnittstellen an den Aufrufthread zurückgibt, über das dann sicher iteriert werden kann, ohne die originale Liste gesperrt zu halten.