Hallo,
ich weis absolut nicht mehr weiter: Für meine Facharbeit will ich eine generische Baumklasse schreiben. Soweit auch ganz gut, nur wenn ich strings verwende, bekomme ich nur eine leere Rückgabe bzw. einen rechteckigen Kasten (über showmessage). Mit Real und integer Werten läuft es.
Meineserachtens liegt das Problem hier (ansonsten ist die Behandlung von strings, integern und reals gleich...):
Delphi-Quellcode:
function wandeln(var x):tstring;
begin
case datentyp of
0 : result := IntToStr(integer(x));
1 : result := tString(x);
2 : result := FloatToStr(real(x));
end;
end;
tstring ist dabei "normal" string. Diese function übergebe ich an eine andere procedure die damit arbeitet(bei der übergabe zur anderen
unit ändere ich den namen zu Wandle um):
Delphi-Quellcode:
function tbaum.postorder: tausgabe;
begin
if Inhalt = NIL then result := ''
else
if l = nil then
if r = nil then result := WandleUm(inhalt^)
else result := WandleUm(inhalt^) + r.postorder
else
if r = nil then result := WandleUm(inhalt^) + l.postorder
else result := l.postorder + r.postorder + WandleUm(inhalt^);
showmessage(result);
end;
Weil das ganz ev. etwas undurchsichtig ist, mein projet auch als Anhang.
ICh freu mich über jeden Tipp,
Vielen Dank,
Markus