|
采用數(shù)組： procedure TForm1.Button1Click(Sender: TObject); var a:array of Ttreenode; node:TTreenode; i,j,count:integer; begin i:=0;j:=0; Count:=Treeview1.Items.Count; setlength(a,Count); node:=Treeview1.TopItem; while node <> nil do begin a[i]:=node; node:=node.getNextSibling; i:=i+1; end; j:=i-1; i:=0; while i <Count do begin node:=a[i].getfirstchild; while node <> nil do begin j:=j+1; a[j]:=node; node:=node.getNextSibling; end; i:=i+1; end; //以下用于集中輸出，當(dāng)然也可以在中間輸出 for i:=0 to Count-1 do listbox1.Items.Add(a[i].text); end; |
|
|
