如何遍历TreeView下面一个字节点下的所有子树？ ( 积分: 50 )

A

ansili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #1

如何遍历TreeView下面一个字节点下的所有子树？
以及如何遍历整个TreeView？
谢谢。

 

银

银雨辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #2

遍历 ANodeObj 下所有子节点：
For K := 0 To ANodeObj.Count - 1 Do
Begin
M := ANodeObj.Item[K].StateIndex;
ANodeObj.Item[K].StateIndex := ANodeObj.StateIndex;
If (M <> ANodeObj.Item[K].StateIndex) Then
UpDateChild(ANodeObj.Item[K]);
End;

 

银

银雨辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #3

遍历整个TreeView：
GNode := TreeView1.Items.GetFirstNode;

While GNode <> Nil Do
Begin
If (GNode.StateIndex = 1) And (GNode.Data <> Nil) Then
Begin
......
End;
GNode := GNode.GetNext;
End;

 

A

andrew57

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #4

学会多看delphi的help，就象windows程序员多看msdn一样
要不然开发很难进行的

 

A

ansili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #5

有没有遍历一个选中的节点下面的所有子树的代码？

 

5

555a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-15

• #6

用递归

 

银

银雨辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-15

• #7

遍历一个选中的节点ANodeObj下面所有子节点
只要子节点ChildNode的count > 0 就是子树
For K := 0 To ANodeObj.Count - 1 Do
Begin
ChildNode := ANodeObj.Item[K];
If (ChildNode.Count > 0 ) Then
Showmessege('这是子树');
End;

 

D

ddzhouqian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-15

• #8

我想可以判断level的

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-15

• #9

可能看不了english,呵呵

 

A

ansili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #10

接受答案了.