==遍历TreeView节点，为什么无法遍历所有节点，代码如下==

Question

方法如下:
procedure TFmDm.SetTreeviewMultiSelect(SuoZaiDi:TTreeview;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
         .....
         .....
        if SuoZaiDi.Selected.HasChildren then //非根节点的子结点的选择
           begin
               for i_loop:=SuoZaiDi.Selected.getFirstChild.AbsoluteIndex  to
                           SuoZaiDi.Selected.GetLastChild.AbsoluteIndex  do
               SuoZaiDi.Items.Item[i_loop].ImageIndex:=1;//获取焦点后标识图标
===================================
假如有三级节点:根节点AAA;一级节点:A1,B1,C1;二级节点:a1,a2,b1,b2,c1,c2,c3...上面代码执行之后的效果如下:
***AAA
        **A1
                *a1
                *a1
        **B1
                *b1
                *b2
        **C1
                *c1
                *c2
                *c3点击根节点AAA获取焦点,执行之后,下一级最后一个自己点C1下面的所有孙节点c1,c2,c3不能取到
问:该如何修改里面的代码来解决?
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/samhardy/archive/2010/04/20/5505773.aspx

Answer 1

遍历很简单var
  i:Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
  begin
    ShowMessage(TreeView1.Items[i].Text);
  end;
end;

Answer 2

嗯，如果只是要遍历1楼这样就OK了
TreeView1.Items是线性表结构的，就是一个数组