可以正常运行,但是点击了最后节点后出错,我用F7单步,判断IF 的时候AbsoluteIndex就出错了
请问这是为什么,代码如下:
procedure TForm2.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
tmpnode: TtreeNode;begin
tmpnode:=treeview1.Selected; if treeview1.Selected.GetNext.AbsoluteIndex <> treeview1.Items.Count then
tmpnode:=tmpnode.GetNext;
......
......小弟没有分,希望大大能出手帮助,让小弟多学点另外:小弟知道用if .getnext <> nil then 的语句来实现类似的判断,捧着学习的心态来求教,谢谢了
请问这是为什么,代码如下:
procedure TForm2.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
tmpnode: TtreeNode;begin
tmpnode:=treeview1.Selected; if treeview1.Selected.GetNext.AbsoluteIndex <> treeview1.Items.Count then
tmpnode:=tmpnode.GetNext;
......
......小弟没有分,希望大大能出手帮助,让小弟多学点另外:小弟知道用if .getnext <> nil then 的语句来实现类似的判断,捧着学习的心态来求教,谢谢了
selected.AbsoluteIndex <> .count then....
这样就对了.
thank you~