Блог

Я хочу скопировать выбранный узел и всех его потомков из одного TTreeView в другой.

Каков наилучший, наиболее эффективный способ добиться этого?

Проще всего сделать это рекурсивно, что-то вроде этого:

 procedure WalkChildren(Node: TTreeNode; List: TList<TTreeNode>);
var
  i: Integer;
begin
  List.Add(Node);
  for i := 0 to Node.Count-1 do begin
    WalkChildren(Node[i], List);
  end;
end;
  

Назовите это следующим образом:

 List := TList<TTreeNode>.Create;
WalkChildren(Root, List);
  

Этот пример добавляет к списку, но вы можете заменить это действие другим по вашему выбору.

Теперь, когда мы можем обойти одно дерево, пришло время обойти два дерева в тандеме.

 procedure CopySubTree(Src, DestParent: TTreeNode; DestNodes: TTreeNodes);
var
  i: Integer;
  Dest: TTreeNode;
begin
  Dest := DestNodes.AddChild(DestParent, Src.Text);
  //copy other parameters from Src to Dest as you please
  for i := 0 to Src.Count-1 do begin
    CopySubTree(Src[i], Dest, DestNodes);
  end;
end;
  

Вы можете назвать это следующим образом:

 CopySubTree(SrcTree.Selected, nil, DestTree.Items);