delphi - 列挙を委任するより良い方法はありますか?

Question

列挙型をプライベート フィールドに渡す次のコードがあります。

interface

type    

TMyClassEnumerator = class(TEnumerator<TMyClass>)
end;

TMyContainerClass = class(TObject)
private
  FItems: TObjectDictionary<string, TMyClass>;
public
  function GetEnumerator: TMyClassEnumerator;
end;

implementation

function TMyContainerClass.GetEnumerator: TMyClassEnumerator;
begin
  Result := TMyClassEnumerator(FItems.Values.GetEnumerator);
end;

私はこれを正しく行っていますか？私は独自のインターフェースを実装IENumerable<TMyClass>または作成することで戦いましたが、コンパイルするものはありませんでしたfor..in.

Answer 1

あなたのアプローチは健全ですが、列挙子クラスをキャストしたり、実際に宣言したりする必要があるとは思いません。私は次のようにします：

TMyContainerClass = class
private
  FItems: TObjectDictionary<string, TMyClass>;
public
  function GetEnumerator: TEnumerator<TMyClass>;
end;

function TMyContainerClass.GetEnumerator: TEnumerator<TMyClass>;
begin
  Result := FItems.Values.GetEnumerator;
end;