Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
Re: Baum: Pfad ausgeben
5. Apr 2010, 19:49
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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|