简单问题，散分喽！！

Question

如何遍历用ListView 控件生成的树??
高人邦我.....

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i, j: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do begin
    ShowMessage(ListView1.Items[i].Caption);
    for j := 0 to ListView1.Items[i].SubItems.Count - 1 do
      ShowMessage(ListView1.Items[i].SubItems[j]);
  end;
end;

Answer 2

果然高人！
用该方法能否遍历用TreeView生成的树？
期待ing...

Answer 3

TreeView更简单：
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    ShowMessage(TreeView1.Items[i].Text);
end;

Answer 4

for I:=0 to ListView.Items.Count - 1 do
begin
    ListView.Items.Item[I] //do it 
end;