Rekursive Procedure funktioniert nicht auf oberster Ebene im Baum?

[JasonDX]

Zitat von Grolle:

Delphi-Quellcode:

procedure Tlft.getSubnoteIds(var inList : TStringList; const inNode : TTreeNode);
begin
  if assigned(inNode) then
  begin
    //...
    getSubnoteIds(inList,inNode.getNextSibling);
  end;
end;

Wähle ich einen Knoten auf der obersten Ebene werden alle weiteren Knoten in der obersten Ebene abgegrast

Das Codestück sollte zeigen wieso. Einfachere Variante: Du fügst den aktuellen Knoten zur Liste hinzu, und iterierst dann über die Kinder und rufst die Funktion rekursiv auf. Ansonsten brauchst du für den obersten Knoten ein anderes Verhalten als für die Kindknoten, eben genau den Nachbarn nicht mitzunehmen. Ist zwar nicht so kurz, funktioniert dafür aber mit dem selben Code für alle Knoten

@himitsu: Das getNextSibling brauchts, um dann alle Kindknoten herzukriegen. Der Rekursionsbaum ist sozusagen die Binärbaum-Darstellung der TreeView.

greetz
Mike

[Grolle]

Hallo,

die Procedure ist schon richtig, der Trick war wirklich die Übergabe des ersten Childknoten und den gewählten extra Knoten zu behandeln.

Danke