Baum: Pfad ausgeben

[himitsu]

Delphi-Quellcode:

FUNCTION Pfad(root: TPtr; x: char): string;
var found: Boolean;
BEGIN
   found := FALSE;
   IF root^.c[1] <> x THEN
   BEGIN
      IF ((root^.left <> NIL)) THEN
      BEGIN
          result := '0' + Pfad(root^.left, x);
          IF ((NOT found){  AND (root^.right <> NIL)}) THEN
              result := '1' + Pfad(root^.right, x);
          // vor diesem IF ist found immer false, da es nirgendwo "vorher" auf TRUE gesetzt wird.
      END;
  END
  ELSE
  BEGIN
      result := '';
      found := TRUE;
      // hier ist die einzige Stelle, wo found auf True umgestellt wird
      // aber hiernach wird die Funktion verlassen und es ist demnach eh egal
  END;
END;