"class of"-Methaobjekt ruft falschen Konstruktor auf?

[Patrick]

Moin, ich habe folgendes Problem (etwas vereinfacht dargestellt):

Delphi-Quellcode:

type
   TStrasse = class(TObject)
   private
      Rand : string;
   public
      constructor Create;
   end;
   
   TBundesstrasse = class(TStrasse)
   public
      constructor Create;
   end;
   
   TStrasseClass = class of TStrasse;
   
...

constructor TStrasse.Create;
begin
  Rand := 'Bordstein';
end;

constructor TBundesstrasse.Create;
begin
  inherited Create;
  Rand := 'Graben';
end;   
   
...   
   
var
   StrasseClass : TStrasseClass;
   Strasse : TStrasse;   
begin
   StrasseClass := TBundesstrasse;
   Strasse := StrasseClass.Create;
   
//   Strasse.Rand = Bordstein!?
end;

Warum wird der Constructor von TBundesstrasse nicht aufgerufen?

[Uwe Raabe]

Zitat:

Zitat von Patrick (Beitrag 1275506)

Warum wird der Constructor von TBundesstrasse nicht aufgerufen?

Weil der Constructor von TStrasse nicht

Delphi-Quellcode:

virtual

und der von TBundesstrasse nicht

Delphi-Quellcode:

override

ist.

[Der schöne Günther]

Weil du den Konstruktor nicht virtuell gemacht hast.

Edit: Kein roter Kasten, ich schwöre es!

[DeddyH]

Und genau das ist der Unterschied zwischen Überschreiben und Verdecken.

[Patrick]

Danke für eure Antworten.

Ich dachte immer es wäre schlechter Stil den Konstruktor zu überschreiben.
Sollte nicht

Delphi-Quellcode:

   StrasseClass := TBundesstrasse;
   Strasse := StrasseClass.Create;

und

Delphi-Quellcode:

   Strasse := TBundesstrasse.Create;

das gleiche sein?

[Stevie]

Zitat:

Zitat von Patrick (Beitrag 1275514)

Danke für eure Antworten.

Ich dachte immer es wäre schlechter Stil den Konstruktor zu überschreiben.
Sollte nicht

Delphi-Quellcode:

   StrasseClass := TBundesstrasse;
   Strasse := StrasseClass.Create;

und

Delphi-Quellcode:

   Strasse := TBundesstrasse.Create;

das gleiche sein?

Nein, weil ohne virtuellen Konstruktor in TStrasse der Aufruf von StrasseClass.Create einen statischen Methodenaufruf von TStrasse.Create macht und keinen virtuellen auf den Konstruktor der konkreten TStrasseClass.