枚举自定义数组，以便我可以使用 for-in

Question

我知道如何做到这一点，但又忘记了...非常烦人，因为我正在开发一个包含 XML 文件列表的类，现在我只想使用 for-in 循环来遍历此中的所有文件列表。这是我现在的课程：

type
  TXmlFileList = class( TInterfacedObject )
  private
    type
      TItem = class( TInterfacedObject )
      strict private
        FCaption: string;
      protected
        constructor Create( const ACaption: string; const AXML: WideString );
      public
        destructor Destroy; override;
        property Caption: string read FCaption;
      end;
  strict private
    FXmlFiles: array of TXmlFileList.TItem;
  strict protected
    function GetXmlFile( index: Integer ): TXmlFileList.TItem;
  public
    constructor Create( );
    destructor Destroy; override;
    function Add( const ACaption: string; const AXML: WideString ): Integer; overload;
    function Add( const AFilename: string ): Integer; overload;
    function Count: Integer;
    procedure Clear;
    property XmlFile[ index: Integer ]: TXmlFileList.TItem read GetXmlFile; default;
  end;

看起来很有趣吗？ :-) 我知道，但我想向外界隐藏 TXmlFile 类的定义。基本上，TXmlFileList 类允许我简单地引用 XmlFileList[I] 来获取位置 I 处的文件。效果很好。

但现在我想循环遍历 TXmlFileList.TItem 元素，因此我必须公开 TXmlFileList.TItem 类。但这还不够。 TXmlFileList 类中也需要一个枚举器！
如何创建该枚举器？



您可能想知道为什么我使用这种复杂的结构。嗯，它可能很复杂，但它会被其他一些开发人员使用，我不想提供比他们需要的更多的方法。这样，我只为他们提供方法“Add”、“Clear”和“Count”来循环列表，以及 TItem 本身定义的任何属性。他们不需要更多的功能，尽管我稍后可能会添加更多功能......

Answer 1

找到了！我需要创建一个新类，我将其称为 TItemEnumerator，并且我还在 TItem 之后将其包含在 TXmlFileList 类中：

    type
      TItemEnumerator = class( TObject )
      strict private
        FOwner: TXmlFileList;
        FIndex: Integer;
      protected
        constructor Create(AOwner: TXmlFileList);
      public
        function GetCurrent: TItem;
        function MoveNext: Boolean;
        property Current: TItem read GetCurrent;
      end;

实现很简单，只是 TXmlFileList 的一个附加方法：

    function GetEnumerator: TItemEnumerator;

最后，将该类公开给外界，我通过将其添加到 TXmlFileList 来做到这一点：

type TXmlFile = TXmlFileList.TItem;

是的，太脏了！ :-)

---

结果是这样的代码：

type
  TXmlFileList = class( TInterfacedObject )
  private
    type
      TItem = class( TInterfacedObject )
      strict private
        FCaption: string;
      protected
        constructor Create( const ACaption: string; const AXML: WideString );
      public
        destructor Destroy; override;
        property Caption: string read FCaption;
      end;
    type
      TItemEnumerator = class( TObject )
      strict private
        FOwner: TXmlFileList;
        FIndex: Integer;
      protected
        constructor Create(AOwner: TXmlFileList);
      public
        function GetCurrent: TItem;
        function MoveNext: Boolean;
        property Current: TItem read GetCurrent;
      end;
  strict private
    FXmlFiles: array of TXmlFileList.TItem;
  strict protected
    function GetXmlFile( index: Integer ): TXmlFileList.TItem;
  public
    type TXmlFile = TXmlFileList.TItem;
    constructor Create( );
    destructor Destroy; override;
    function Add( const ACaption: string; const AXML: WideString ): Integer; overload;
    function Add( const AFilename: string ): Integer; overload;
    function Count: Integer;
    function GetEnumerator: TItemEnumerator;
    procedure Clear;
    property XmlFile[ index: Integer ]: TXmlFileList.TItem read GetXmlFile; default;
  end;

是的，当你看到它时，你可能会开始摸不着头脑，但它是一个很好的解决方案，可以向没有经验的开发人员隐藏许多功能！现在他们只看到他们需要看到的东西。 （希望他们永远不会查看这个源代码！）
我只是期望我需要编写比这更多的代码......

---

为什么用不同的名称公开 TItem 类型？实际上，这些类再次包装在一个更大的类 TXmlManager 中，该类还处理样式表、转换、验证和一堆其他内容。 TXmlFile 实际上是在 TXmlManager 级别公开的，而不是 TXmlFileList 类。 TXmlManager 包含一些其他类似的列表，我只是在其中重新使用名称 TItem。不过，不存在冲突，因为需要添加父级以引用正确的类类型。
虽然类头可能看起来很复杂，有近 200 行代码，但单元的其余部分相当精简，有近 700 行代码和大量注释。类结构实际上帮助我从使用它的人的角度来看这一切看起来很简单。使用它的人不需要寻找类型和方法来使用。他们的选择非常有限……