[gelöst] Constructoren einer Klasse überladen

[mintpc]

Hallo zusammen,

ich hätte da mal ne Frage zum Überladen von Konstruktoren und dabei den Aufruf eines
Constructors aus einem anderen heraus.

Das Beispiel hier funktioniert, aber mir geht es um die mit //*** markierte Zeile des Codes.

Code: Alles auswählen

constructor TAuto.create (inKm: integer);
begin
  self.km := inKm;
end;
 
constructor TAuto.create (inKm, inPreis: integer);
begin
   self.create (inKm);  // ***
   self.Preis := inPreis;
end;

Da ruft der untere Constructor den oberen auf. Der obere ruft ja aber seinerseits wieder
den Standardconstructor createauf. Soweit, so gut.

Nun ruft der untere Constructor ja aber eigentlich auch den Standardconstructor create auf.
Wird dieser also 2x aufgerufen und werden da eigentlich 2 Objekte erstellt, oder ist der Programm-
code so ok.

Besten Dank schonmal
mintpc

[TBug]

Da ruft der untere Constructor den oberen auf. Der obere ruft ja aber seinerseits wieder
den Standardconstructor createauf. Soweit, so gut.

Nun ruft der untere Constructor ja aber eigentlich auch den Standardconstructor create auf.
Wird dieser also 2x aufgerufen und werden da eigentlich 2 Objekte erstellt, oder ist der Programm-
code so ok.

In Deinem Beispiel wird gar kein Standard-Constructor aufgerufen, sondern nur den bzw. die Du selbst in Deiner Klasse TAuto definiert hast.

Um den Constructor der Basis-Klasse aufzurufen musst Du im Constructor inherited benutzen.

Code: Alles auswählen

 
TAuto.create (inKm: integer);
begin
  inherited Create();
  self.km := inKm;
end;
 

.

[mintpc]

Danke erstmal für die Antwort, die mir aber nicht genügt. Dass inherited create den Konstruktor der
Vaterklasse aufruft, ist klar. Aber wir haben hier ja gar keine Vaterklasse. Wir haben hier zwei
überladene Konstruktoren.

Ich versuche meine Frage nochmal mit folgendem Beispiel zu präzisieren:

Code: Alles auswählen

Auto1 := TAuto.create(180000, 4000);

erzeugt ein Objekt vom Typ TAuto und legt die Referenz Auto1 auf dieses Objekt. Gut.

Nun wird aber im Konstuktor nochmal

Code: Alles auswählen

self.create(180000); 

aufgerufen. Wird hier nochmal ein zweites Object erzeugt, auf das keine Referenz mehr zeigt?

Nein, oder? Das ist meine Frage.

mintpc

[wp_xyz]

Aktiviere HeapTrc (Projekteinstellungen / Debuggen / Unit Heaptrc verwenden). Falls ein zweites, nicht mehr erreichbares Objekt erzeugt wird, müsste HeapTrc beim Programm-Ende ein Speicherleck melden

[Warf]

Also bei ObjectPascal hat TObject (Die allgemeine Parentklasse) keinen eigenen konstruktor der überladen werden muss. Eine Klasse die von TObject abstammt muss den Konstruktor selbst implementieren wenn man ihn nutzen möchte.
Der Aufruf von Instanz.Create(Args); (z.B. Self.Create) erzeugt allerdings keine neue Instanz, da dies nur ein Methodenaufruf ist, der Aufruf von TKlasse.Create(Args) erzeugt eine neue Instanz. Syntaktisch und Semantisch ein sehr wichtiger Unterschied

[mintpc]

Perfekt! Vielen Dank für die Antworten, das ist genau das, was
ich wissen wollte.

mintpc