如何重写嵌套类型的方法？

Question

我在 Delphi 2009 中有一个自定义的 TObjectList 后代，我想稍微玩一下它的枚举器，并向 MoveNext 方法添加一些过滤功能，以使其跳过某些对象。 MoveNext 由 DoMoveNext 调用，这是一个虚拟方法，因此重写它应该不难......除了一件事。 TObjectList 的 TEnumerator 不是它自己的类； 它在 TObjectList 声明中声明为嵌套类型。

有没有简单的方法可以在我的后代类中重写 TEnumerator.DoMoveNext，或者我是否必须重新实现整个 TEnumerator？ 这不是一个很大的班级，但如果可以的话，我希望将裁员降到最低......

Answer 1

枚举器是它自己的类。 它只有一个嵌套范围。 要为其编写后代，只需像平常一样声明一个类，然后在指定新类的祖先时，就给出完全限定的类型名称。

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

Answer 2

关于枚举器的优秀主题。