Doppeltes Create?

[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.

[internetnavigator]

Und wie schaut es nun aus wenn man es kürzer haben will? Man brauch den 2. Aufruf doch nicht wenn man den Ersten wie von mir oben angegeben modifiziert, oder?

[Christian Seehase]

Zitat von internetnavigator:

Und wie schaut es nun aus wenn man es kürzer haben will? Man brauch den 2. Aufruf doch nicht wenn man den Ersten wie von mir oben angegeben modifiziert, oder?

Jain.
Dadurch, dass man den Konstruktor verwendet, kann man gezielt das eigentliche Tree-Objekt erzeugen, und kann somit, strukturiert, die Resourcen belegen, und wieder freigeben.
Beispielsweise lassen sich die beiden Bäume so einmalig im OnCreate eines Formulares erzeugen und im OnDestroy wieder freigeben, ohne die sonstigen Möglichkeiten der Klasse zu benutzen.
So kann man dann die Bäume mehrfach verwenden.

Wie sehen eigentlich die Konstruktoren intern aus.

[internetnavigator]

So:

Delphi-Quellcode:

(*    Quelle
  Rekursive Fassung (geeignet auch zum Ableiten von Suchbäumen etc.) aus:
  http://www.info-seminar.de/KlassenZA/
  Stand: 30.01.2007
  Rückfragen und Verbesserungsvorschläge bitte an
  Joachim Deckers <[e-mail]>

  Bearbeitet entsprechend den "Materialien zu den zentralen Abiturprüfungen
  im Fach Informatik 2008. Objektorientierter Ansatz Delphi",
  http://www.standardsicherung.schulministerium.nrw.de/abitur-gost/fach.php?fach=15
  Änderungen (16.10.07):
  (1) addTreeLeft (addTreeRight) wurden ersetzt durch setLeftTree (setRightTree)
  (2) Die Parameternamen pItem wurden ersetzt durch pObject
*)

{...}

 constructor TBintree.create;                   // leeren Baum erzeugen
 begin
   kenntInhalt:=nil;
   kenntLinkenNachfolger:=nil;
   kenntRechtenNachfolger:=nil;
 end;

 constructor TBintree.create(pObject:TObject);    // Baum mit zwei leeren Teilbäumen erzeugen
 begin
   kenntInhalt:=pObject;
   if pObject<>nil then
   begin
     kenntLinkenNachfolger:=Klassentyp(self.ClassType).create;
     kenntRechtenNachfolger:=Klassentyp(self.ClassType).create;
   end
   else
   begin
     kenntLinkenNachfolger:=nil;
     kenntRechtenNachfolger:=nil;
   end
 end;
{...}