加载树视图项目(节点)到一个列表框

Question

如何加载一个树视图项目到一个列表框在Delphi?

listbox.items:=treeview.items

为

Incompatible types String and TNodes

我不知道。任何帮助吗?

Answer 1

TListBox的Items属性声明为TStrings, TTreeView的Items属性声明为TTreeNodes，二者不可转让。

你必须这样做:

procedure AddNode(aStrings: TStrings; aNode: TTreeNode);
var
  iChild: integer;
begin
  aStrings.Add(aNode.Text);
  for iChild := 0 to aNode.Count - 1 do
    AddNode(aStrings, aNode.Item[iChild]);
end;
var 
  iNode: integer;
begin
  listbox.Items.Clear;
  for iNode := 0 to treeView.Items.Count - 1 do
    AddNode(listbox.Items, treeView.Items.Item[iNode]);