Question

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

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

如果继承的构造函数不接受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.

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

1 个答案: