TTreeView durchlaufen

[shmia]

Grundgerüst:

Delphi-Quellcode:

procedure VisitNode(node : TTreeNode);
var
  i : integer;
  s : string;
begin
  s := StringOfChar('-', node.level);  // zum Einrücken
  // Ausgabe der Daten
  writeln(s, node.Text);  

  // rekursiver Aufruf für alle Kinder
  for i := 0 to node.Count-1 do
     VisitNode(node.Item[i]);
end;