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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
9 r: Z$ Y! y% y6 p: b& Q2 _  Wprocedure Trs.TreeView1Click(Sender: TObject);
+ P9 q2 n* F* R2 m6 Ovar node: TTreeNode;
) [, K# q% y: c$ E- f' K* v1 p    strnode:string;
! h1 x& f4 [' W% }    label ok;
    label haschild;
" R' d8 k1 M; N; ?7 F6 `% }    label nextnode;
" I" `! }) @. j& tbegin
$ c. A/ w+ E4 E# A% i5 |' x; k  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
  strnode:=node.Text;
0 u4 c; k: |: B: [0 y+ X  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   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
$ k# O( A- F- W% k4 r6 A* k    until dm.qtree.Eof;
  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
6 {2 U5 i. n( ^/ C& u    goto haschild;
( [+ b0 O# \6 w6 B; h& w7 ^  end
1 t8 h4 t+ y1 A7 M/ V0 {( J  else
+ Q: ^, a4 Y& @1 k  begin
; U4 Q9 B7 \9 C: \0 t8 A    if node.Index =treeview1.Items.Count then goto ok
% z6 x' v/ \5 P  W    else goto nextnode;
; {( `9 A& n' l( c  end;
ok:null;
end;

ilikenba

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

xtmlj

好