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;