1

TCollection から継承したクラスがあり (「TMyCollection」と呼びます)、そこから新しいクラスを継承する必要があります (「TMyItems」と呼びます)。

通常、TCollection のコンストラクターで ItemClass タイプを渡しますが、私の場合、TMyCollection のコンストラクターは、ItemClass をとらず、所有者のみを取る新しいコンストラクターでオーバーライドされます。

継承されたコンストラクターが ItemClass パラメーターを受け入れない場合、「TMyItems」の ItemClass を変更する方法を知る必要があります。

よろしく。

4

1 に答える 1

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.
于 2012-07-11T09:19:17.037 に答える