两个问题!(100分)

  • 主题发起人 主题发起人 doud
  • 开始时间 开始时间
D

doud

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个想不起来了!
2.怎样能得到Treeview中同一层次的最后一个Note
就象Treeview.Selected.Getlastchild
 
hehehehehehe, so easy.

var
n: TTreeNode;
begin
n := Treeview.Selected;
while n.GetNextSibling <> nil do
n := n.GetNextSibling;
end;
另一 种方法:
n := Treeview.Selected.Parent.GetLastChild;
 
如果你的树有根的话,用这条语句:
//已知节点 P<>nil,可能是根或某层的一个节点,求与之同层的最后一个节点 Q
if ((P.Parent<>nil) then
Q:=P.Parent.GetLastChild
else
Q:=P;//根
 
Another_eYes 第二种方法里忘了判断 Parent 是否为 nil 吧!
如果 Selected 是根结点就会报错。
 
我本来用第一种方法,和第二种方法结合就比较好了,谢谢!
 
后退
顶部