0

如何将树视图项加载到 Delphi 中的列表框中?

listbox.items:=treeview.items

Incompatible types String and TNodes

我不知道。有什么帮助吗?

4

1 回答 1

2

Items的属性TListBox被声明为TStrings,并且isItems的属性- 一个不能分配给另一个。TTreeViewTTreeNodes

你将不得不做这样的事情:

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]);
于 2013-01-04T03:19:38.180 回答