Doppeltes Create?

[internetnavigator]

Hallo

Ich habe eine kleine und kurze, schnell zu beantwortende Frage:

Ich sehe zurzeit Quellcode aus der Schule durch weil ich bald 'ne Klausur in Informatik schreibe.

Dabei bin ich auf Folgendes gestoßen:

Delphi-Quellcode:

  var
    LT, RT:TBintree;
{...}
    LT:=TBintree.Create;
    RT:=TBintree.Create;
{...}
    LT.create(TString.create(BlattL));
    RT.create(TString.create(BlattR));
{...}

Delphi-Quellcode:

// In der TBinTree Klasse
{...}
constructor create;overload; virtual;
constructor create(pObject:TObject);overload; virtual;
{...}

Ist das Create da nicht doppelt und könnte man das Erste nicht direkt in

Delphi-Quellcode:

    LT := TBintree.Create(TString.create(BlattL));
    RT := TBintree.Create(TString.create(BlattR));

ändern?
Weil eigentlich müsste dann doch LT bzw. RT von dem 2. Create erneut erstellt werden und das Erste eh "überschrieben" sein, oder?

Gruß !N

[Luckie]

Da wird der Konstruktor wie eine Methode benutzt. Ungewöhnlich, sollte aber funktionieren. Und ja, man sollte eigentlich gleich den zweiten Konstruktor aufrufen können.

[internetnavigator]

Funktionieren tut es auch. Nur es sieht so "unsauber" aus und ich habe die Befürchtung, dass, wenn ich es so in der Klausur schreibe, es Rot gibt. (Nebenbei der Code ist nicht von mir ). Von einer Lehrkraft, deshalb wundert es mich umso mehr.

[Delphi-Narr]

So wie ich das sehe ist das erste Create überflüssig. Es handelt sich ja auch um eine overload Prozedur...

Edit

Oh, das hatte ich übersehen

Liebe Grüße

[Luckie]

Nein, ist es nicht. Denn beim zweiten wird kein Objekt erzeugt! Oder siehst du da eine Zuweisung zu einer Objektvariablen?

MyObject := TMyClass.Create;

[internetnavigator]

Zugewiesen wird nichts, da hast du Recht, aber die nötige Änderung habe ich ja vorgeschlagen. Es schien mir nur doppelt, erst ein Objekt zu erzeugen und dann noch einmal das Create als Methode aufzurufen.

Gruß !N

[himitsu]

Delphi-Quellcode:

LT:=TBintree.Create;
...
LT.create(TString.create(BlattL));

Wenn das/ein instanziertes Objekt in LT existiert, dann kann man einen Konstuctor auch über eine Objektinstanz erstellen und nicht nur über die Klasse.

Allerdings wird hier ein weiteres Objekt erstellt, welches im Nirvana verschwindet ... Ergo sollte ein Speicherleck entstehen.

Nee, wird doch als Methode aufgerufen

Delphi-Quellcode:

type
  TMyClass = class
    constructor Create;
  end;

constructor TMyClass.Create;
begin
  ShowMessage(IntToStr(Integer(Self)));
end;

var
  C: TMyClass;
begin
  C := TMyClass.Create;
  C.Create;

  C := nil;
  C.Create;
end;

[internetnavigator]

Ja aber ein Objekt wird doch dennoch erstellt nur nie zugewiesen oder?

[mkinzler]

Nein, ein Konstruktor hat eine doppelte Identität:
1. Klassenmethode; Aufruf über Klasse: erzeugt neue Instanz und gibt diese zurück
2. Normale Methode; Aufruf über Objekt(Instanz): setzt Werte im existenten Objekt

[himitsu]

Hatte ich eigentlich auch so gedacht, aber ein Test hat mich eines Besseren belehrt.


Laut dem Inneren Code sieht es so aus, als wenn vor einm Konstructor (im ersten BEGIN geprüft wird, ob die Instantz existiert und wenn nicht, dann wird eine Instanz erstellt.
Beim Aufruf über den Klassentypen wird da wohl NIL übergeben.

So oder so wird am Ende die Instanz als Result zurückgeliefert, ob man dieses nun abfängt oder nicht.