(Falsche?) Warnung beim Überladen eines Konstruktors

[Neutral General]

Hallo,

Habe vereinfacht folgende Situation (Delphi 10.3.0):

Delphi-Quellcode:

type
  TBasis = class
  public
    constructor Create(AOwner: TComponent); virtual; 
  end;

  TAbleitung = class(TBasis)
  public
    constructor Create(AOwner: TComponent; A, B: String); overload; // [dcc32 Warnung] Unit4.pas(24): W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TBasis'
  end;

Ich verstehe nicht warum da eine Warnung kommt. Ich füge in der Ableitung einfach einen zweiten constructor per overload hinzu.
Der sollte nichts verbergen und auch wenn ich das teste, kann ich im Code beide constructoren aufrufen (funktioniert auch zur Laufzeit):

Delphi-Quellcode:

// Beides compiliert und läuft.
var ableitung: TAbleitung;
begin
  ableitung := TAbleitung.Create(nil);
  ableitung := TAbleitung.Create(nil, 'A', 'B');

Die Codevervollständigung zeigt korrekt beide Überladungen an, beide Überladungen kompilieren und verhalten sich auch zur Laufzeit wie man das erwartet würde.
Warum also dann die Warnung? Gibts da irgendwas was ich übersehe oder ist die Warnung an der Stelle (wie ich vermute) einfach falsch?

Wenn ich den constructor in TBasis NICHT virtuell mache, dann meckert der Compiler übrigens nicht.

[Schokohase]

reintroduce http://docwiki.embarcadero.com/RADSt...thoden_(Delphi)

[Neutral General]

Zitat von Schokohase:

reintroduce http://docwiki.embarcadero.com/RADSt...thoden_(Delphi)

Ich kenne reintroduce, aber das ist ein ganz anderer Fall.
Es geht hier ja explizit darum einen 2. Konstruktor hinzuzufügen (eine Überladung) und nicht den Konstruktor der Basisklasse mit reintroduce zu überdecken.
Und das klappt ja auch - nur halt mit einer Warnung die ich nicht nachvollziehen kann.

[Schokohase]

Delphi-Quellcode:

type
  TBasis = class
  public
    constructor Create(AOwner: TComponent); virtual;
  end;

  TAbleitung = class(TBasis)
  public
    constructor Create(AOwner: TComponent); overload; override;
    constructor Create(AOwner: TComponent; A,B: string); reintroduce; overload;
  end;

{ TBasis }

constructor TBasis.Create(AOwner: TComponent);
begin
  inherited Create;

end;

{ TAbleitung }

constructor TAbleitung.Create(AOwner: TComponent);
begin
  inherited;

end;

constructor TAbleitung.Create(AOwner:TComponent; A,B: string);
begin
  inherited Create(AOwner);

end;

[Neutral General]

Dann hab ich für TAbleitung 3 Konstruktoren (2x (AOwner: TComponent)).

Aber so klappt es:

Delphi-Quellcode:

type
  TBasis = class
  public
    constructor Create(AOwner: TComponent); virtual;
  end;

  TAbleitung = class(TBasis)
  public
    constructor Create(AOwner: TComponent; A,B: string); reintroduce; overload;
  end;

[Schokohase]

Zitat von Neutral General:

Dann hab ich für TAbleitung 3 Konstruktoren (2x (AOwner: TComponent)).

Jupp, so hatte ich es auch zuerst, aber dann hat mein Rio rumgesponnen und zeigte mir nur diesen einen Konstruktor an.

Ich halte es eh für seltsam dass die Konstruktoren automatisch weitervererbt werden. Das machen andere Sprachen anders (und mMn auch besser).

Egal, es läuft ja (irgendwie).