Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Also ich habe einen kleinen Fehler beim Erstellen des Baumes.
Eigentlich hab ich den Quellcode dazu mitgeposted, damit man ja sieht, wie der Baum gebaut wird...
Deine o.g. Funktion bringt ebenfalls nur '0', '00', '000' etc. ...
Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Okay... Dann lasse ich es eben weg.
Aber dein obig genanntes funktioniert m.E. trotzdem nicht, da ja für alle Knoten entweder root^.left UND root^.right = NIL sind oder eben keines...
Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Wieso wird die Funktion dort verlassen?
Ich könnte doch auch THEN und ELSE vertauschen, wenn ich die Bedingung ändere:
FUNCTION Pfad(root: TPtr; x: char): string;
VAR found: boolean;
BEGIN
Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Ja, kann es, wenn root^.c <> x erfüllt ist...
Ich verstehe jetzt nicht, wie du das meinst?!
Ich glaube nicht, dass dein Edit den Zweck erfüllt, da ich denke, dass die Suche in den Teilbäumen rechts/links ja "auf der selben Ebene" erfolgen müsste...
Das funktioniert so denke ich mal nicht, da ja eigentlich dort, wo root^.left = NIL ist, auch root^.right = NIL ist, oder zumindest sein sollte...
Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Argh!
found ist lokale Variable in "Pfad".
Naja, so wie der Baum aufgebaut wird, ist an allen Knoten, die links auf NIL zeigen auch rechts Ende, also zeigen beide auf NIL.
Ich bin mir inzwischen garnicht mehr sicher, ob da überhaupt etwas richtig ist...
Forum: Sonstige Fragen zu Delphi
Delphi
by P_P,
5. Apr 2010
Hallo Forum!
Ich bin neu hier und habe auch gleich ein Problem...
Ich habe wie folgt einen Baum deklariert:
TYPE TPtr = ^TNode;
TNode = RECORD
i: integer;
c: string;