Delphi-Quellcode:
procedure TBBaum.Einfuegen (n: Integer);
begin
if gibschluessel>n then
begin
if giblinks <> nil then
giblinks.Einfuegen(n)
else
// Wenn du denkst, dass der Aufruf von create(n) ein neues Objekt erzeugt, liegst du falsch !!
setzelinks(create(n))
setzelinks(TBBaum.create(n)) // So wird ein neues Objekt erzeugt
...
Der Konstruktor Create hat 2 verschiedene Aufrufmodi:
Bei TKlasse.Create wird ein neues Objekt erzeugt und anschliesend die Konstruktor-Methode aufgerufen.
Bei self.Create wird nur die Konstruktor-Methode aufgerufen.