Hallo,

ich habe eine rekursive Procedure, welche nicht in der obersten Ebene im Baum funktioniert. Ziel ist es alle Unterknoten eines Knotens auszulesen:

markieren

Delphi-Quellcode:

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

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

Viele Grüße ...

Vielleicht solltest du statt den Silbings (also Knoten gleichen Levels) lieber alle Kinder durchgehen

=> TTreeNode.GetNextChild

Dann laß doch getSubnoteIds(inList,inNode.getNextSibling); einfach weg?

PS: Mit dieser Zeile sollte es überigens auf allen Ebenen nicht so funktionieren, wie du willst.

Zitat von Grolle:

markieren

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

Hallo,

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

Danke