delphi - Delphi - ツリービュー アイテム (ノード) を ListBox にロードする

Question

ツリービュー項目を Delphi のリストボックスにロードする方法は?

listbox.items:=treeview.items

与える

Incompatible types String and TNodes

何も思いつきません。何か助けはありますか？

Answer 1

ItemsのプロパティはTListBoxとして宣言されTStrings、 のItemsプロパティTTreeViewは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]);