关于treeview遍历，并添加子节点

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
) O3 n1 Z+ Z! O0 L! V' I" vvar node: TTreeNode;
    strnode:string;
5 |3 v9 {, z: l( `; t    label ok;
/ y0 `/ }0 C% M+ y3 B0 @8 E    label haschild;
    label nextnode;
begin
  node:=treeview1.TopItem;
  \' N: F, P+ ]; w& R& P$ r7 H+ {haschild: node:=getfirstchild(node);
7 `2 w* \  v+ \  strnode:=node.Text;
4 R. V8 U' B. Z2 I( C  dm.qtree.Close;
  dm.qtree.SQL.Clear;
  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
- W+ s& D( X/ p8 e. t# V7 L  begin   //将所有员工姓名都作为子节点添加
  k( C$ ]2 o3 X. K% |7 k( L6 s* z    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
' S  E1 C! N! r0 _1 J! S    treeview1.Items.AddChild(node,strnode);
# L; K  p/ ]- j+ B* C8 C    dm.qtree.Next;
* S' k0 f$ q) P$ _4 A1 c    until dm.qtree.Eof;
  end;
$ p6 N8 a! W- D+ M( D5 P( W  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
. ^; _6 K1 P0 i  M* ~8 Q  end
  else
3 ?$ E* K5 g# N4 {. R; J/ A  begin
. `3 m2 M4 a# z0 e    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
  end;
, D. z& n+ C1 ?- zok:null;
end;

ilikenba

<>我没有办法调试，不过感觉可能没什么错误，你把错误也发出来看看！</P>

xtmlj

好