Strings des letzten TreeView Knoten mit allen Children in ein Richedit schreiben

[DeddyH]

Mit einem TStrings-Parameter wäre das aber noch allgemeingültiger.

Delphi-Quellcode:

procedure TFdetail.NodesToList(AList: TStrings; Node : TTreeNode);
begin
  while Assigned (Node) do
    begin
      AList.Add (Node.Text);
      NodesToList(AList, Node.getFirstChild);
      Node := Node.getNextSibling;
    end
end;