ttreeview ab einem Unterknoten alles auslesen

[ibp]

hier meine Lösung, kommt ohne zusätzliche Variable aus...

Delphi-Quellcode:

procedure GetSubNodes(const Node:TTreeNode);
begin
  if assigned(Node) then
  begin
    ShowMessage(Node.Text);

    GetSubNodes(Node.getFirstChild,Check);  // recurse next level, first child
    GetSubNodes(Node.getNextSibling,Check); // recurse actual level, next node
  end;
end;