Binärbaum preorder Algorithmus

[sx2008]

Wenn du eine Funktion rekursiv aufrufst dann musst du auch das Ergebnis der Funktion entgegennehmen!

Delphi-Quellcode:

function TBaumklasse.preorderfunc(baum:TBinaryTree):string;
var
   x, Text : string;
begin
  if not baum.isEmpty then
  begin
    Result := Kettenklasse(baum.getobject).gibString; // Bis hier wurde das Objekt in einen String umgewandelt
    Result := Result + '[' +  preorderfunc(baum.getLeftTree) + ']';
    Result := Result + '[' + preorderfunc(baum.getRightTree) + ']';
  end
  else Result := '';
end;