Hallo,
ich habe eine rekursive Procedure, welche nicht in der obersten Ebene im Baum funktioniert. Ziel ist es alle Unterknoten eines Knotens auszulesen:
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 ...