delphi - 如何更改从 TCollection 继承的类的 ItemClass

Question

我有一个从 TCollection 继承的类（我们称之为“TMyCollection”），我必须从它继承一个新类（我们称之为“TMyItems”）

通常我们在 TCollection 的构造函数中传递 ItemClass 类型，但在我的情况下，TMyCollection 的构造函数被新的构造函数覆盖，它不接受 ItemClass，它只接受 Owner。

如果继承的构造函数不接受 ItemClass 参数，我需要知道如何更改“TMyItems”中的 ItemClass。

问候。

Answer 1

您仍然可以从子类中调用继承的 TCollection.Create，即使它没有相同的签名：

  TMyCollectionItem = class(TCollectionItem)
  private
    FIntProp: Integer;
    procedure SetIntProp(const Value: Integer);
  public
    property IntProp: Integer read FIntProp write SetIntProp;
  end;

  TMyCollection = class(TCollection)
  public
    constructor Create(AOwner: TComponent);virtual;
  end;

{ TMyCollection }

constructor TMyCollection.Create(AOwner: TComponent);
begin
  inherited Create(TMyCollectionItem); // call inherited constructor
end;

编辑：

根据原始发布者的评论，“技巧”是将新构造函数标记为重载。由于它是一个重载，它不会隐藏对 TCollection 构造函数的访问。

  TMyCollection = class(TCollection)
  public
    constructor Create(AOwner: TComponent);overload;  virtual;
  end;

  TMyItem = class(TCollectionItem)
  private
    FInt: Integer;
  public
    property Int: Integer read FInt;
  end;

  TMyItems = class(TMyCollection)
  public
    constructor Create(AOwner: TComponent);override;
  end;

implementation

{ TMyCollection }

constructor TMyCollection.Create(AOwner: TComponent);
begin
  inherited Create(TCollectionItem);

end;

{ TMyItems }

constructor TMyItems.Create(AOwner: TComponent);
begin
  inherited Create(TMyItem);
  inherited Create(AOwner); // odd, but valid
end;

end.