Rekursive Procedure funktioniert nicht auf oberster Ebene im Baum?

**Grolle**

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 ...

Rekursive Procedure funktioniert nicht auf oberster Ebene im Baum?

Rekursive Procedure funktioniert nicht auf oberster Ebene im Baum?

Forumregeln