未从ListView中填充TreeView中的数据

时间:2016-04-21 03:20:17

标签: delphi treeview

我希望选定的列表数据填充树

这是我的尝试

if ListView1.Items[Count].Selected then
begin
  Root := ListView1.Items[Count].Caption;
  for Itr := TreeView1.Items.Count-1 downto 0 do Begin
    if TreeView1.items[itr].Parent.Text = Root then begin
      TreeNode := TreeView1.Items[itr].getFirstChild;
      Treeview1.Items.AddChild(Treenode,ListView1.Items[Count].SubItems[0]);
      break;
    end;
  end;
end;

但是它创建新节点并且存在索引错误。

请帮助

1 个答案:

答案 0 :(得分:2)

您尚未提供任何有关您的ListView数据的详细信息,或者TreeView 假设与该数据相关的内容。但我怀疑你的代码应该看起来更像这样:

if ListView1.Items[Count].Selected then
begin
  Root := ListView1.Items[Count].Caption;
  for Itr := TreeView1.Items.Count-1 downto 0 do begin
    TreeNode := TreeView1.Items[itr];
    if TreeNode.Text = Root then begin
      TreeView1.Items.AddChild(TreeNode, ListView1.Items[Count].SubItems[0]);
      break;
    end;
  end;
end;

请注意,向后遍历TreeView 是非常低效的。树本身不是可索引的,因此每次通过索引通过TreeView1.Items[]属性访问节点时,它必须从树中的第一个节点开始,并迭代转发计数节点,直到它到达指定的索引。您正在向后访问的每个节点重复相同的正向扫描。这是很多浪费的开销。