delphi - ネストされた型のメソッドをオーバーライドするにはどうすればよいですか?

Question

Delphi 2009 でカスタム TObjectList の子孫を取得しました。その列挙子を少し操作して、MoveNext メソッドにフィルタリング機能を追加して、特定のオブジェクトをスキップさせたいと考えています。MoveNext は、仮想メソッドである DoMoveNext によって呼び出されるため、これをオーバーライドすることは難しくありません... 1 つのことを除いて。TObjectList の TEnumerator は独自のクラスではありません。TObjectList 宣言内でネストされた型として宣言されています。

子孫クラスで TEnumerator.DoMoveNext をオーバーライドする簡単な方法はありますか、または TEnumerator 全体を再実装する必要がありますか? それほど大きなクラスではありませんが、できれば冗長性を最小限に抑えたいと思います...

Answer 1

列挙子は独自のクラスです。ネストされたスコープがあるだけです。その子孫を記述するには、通常どおりクラスを宣言するだけです。新しいクラスの祖先を指定するときに、完全修飾型名を指定します。

type
  TMasonEnumerator = class(TObjectList.TEnumerator)
  protected
    function DoMoveNext: Boolean; override;
  end;

Answer 2

列挙子に関する優れたトピック。