Delphi - TreeBox 항목 (노드)을 ListBox에로드

Question

트리 뷰 항목을 목록 상자에로드하는 방법은 무엇입니까? (델파이에서). 탄스크는 고급!

listbox.items :. = treeview.items -> 호환되지 않는 유형의 문자열과 TNodes는 = (나는 아무 생각이있어 어떤 도움을의

Answer 1

TListBox의 속성 TStrings로 선언 Items 및 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]);