function FindNode(TreeView:TTreeView;NodeItem:TTreeNode;LabelName:String):TTreeNode;
......
if (NodeItem.Text<>LabelName) then *****
repeat
NodeItem:=NodeItem.getNextSibling;
Until (NodeItem.Text=LabelName) or (NodeItem=nil);¥¥¥¥
......
打星号的这一行出错,错误提示如下:
Project Project2.exe raised exception class EAccessViolation with message
'Access violate at address 004C4943 in module 'Project2.exe'.Read of address 00000008'.Process stopped....
看不明白啊,要是这样出错那么¥¥¥¥这行怎么不出错呢?
......
if (NodeItem.Text<>LabelName) then *****
repeat
NodeItem:=NodeItem.getNextSibling;
Until (NodeItem.Text=LabelName) or (NodeItem=nil);¥¥¥¥
......
打星号的这一行出错,错误提示如下:
Project Project2.exe raised exception class EAccessViolation with message
'Access violate at address 004C4943 in module 'Project2.exe'.Read of address 00000008'.Process stopped....
看不明白啊,要是这样出错那么¥¥¥¥这行怎么不出错呢?
解决方案 »
- 如何修改ADOQuery查询数据集的当前记录?
- 怎样用API判断鼠标左键的UP事件?
- installshield 中如何调用外部程序
- 问一下,DELPHI里在判断一个组件是不是TPanel的话怎么判断》
- ClientDataSet组件的Refresh,close,open,applyupdates之间的区别是什么?
- 帮我弄一份GDI+的GDIPLUS.PAS,多谢!
- 新建群:Delphi+DB 843353 欢迎加入!
- 各位大侠帮忙。
- 又是数据打包的问题,zswang,netlib老兄进来看看
- 大伙儿是否遇到这种问题?
- 一个除了我任何人都能解决的问题。最先解决此问题的可得20分!
- 请问delphi中能加入Authorware文件吗?
repeat
NodeItem:=NodeItem.getNextSibling;
if NodeItem = nil then Break;
Until (NodeItem.Text=LabelName)