Binärbaum - Problem: StackOverflow

[shmia]

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.