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

[Dejan Vu]

Übergib mal noch 'RichEdit' an 'NodesToRichEdit', dann ist das allgemeingültiger.

Delphi-Quellcode:

procedure TFdetail.NodesToRichedit (richEdit : TRichEdit; Node : TTreeNode);
begin
  while Assigned (Node) do
    begin
      richEdit.Lines.Add (Node.Text);
      NodesToRichedit (richEdit, Node.getFirstChild);
      Node := Node.getNextSibling
    end
end;

Als Tipp/Idee.