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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
    label ok;
& o+ A5 \  @0 C% w    label haschild;
; C: f2 V$ M2 {    label nextnode;
  l% `/ l/ M5 o& e  M7 Ybegin
- n0 Y( E7 Z" @& f8 D9 u6 S  node:=treeview1.TopItem;
/ V" ?! g, C  bhaschild: node:=getfirstchild(node);
  strnode:=node.Text;
; V2 x& y  h% I: x  dm.qtree.Close;
  dm.qtree.SQL.Clear;
  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
( \) ~2 O2 g1 M7 a2 F; F  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
. H1 w9 j# n: y  b8 v    strnode:=dm.qtree.fieldbyname('empname').AsString;
$ p, g. h& @* d    treeview1.Items.AddChild(node,strnode);
. D' [7 n9 w. b. L" W- d    dm.qtree.Next;
. }8 x, B- ^+ D  ?, R    until dm.qtree.Eof;
  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
1 e& I) d2 T. H9 x" d: X/ \. `nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
0 f9 s' A" l9 O& J# k9 k  end
  else
' C4 X* Z2 X! k  begin
; p1 Q5 p7 p+ R, E    if node.Index =treeview1.Items.Count then goto ok
' ~8 g9 T% p. V1 t* i: q    else goto nextnode;
" s5 J2 W* K; ]2 x# E* o, {; @3 B  end;
9 x8 n  j+ c! [: \* Jok:null;
5 Q( o6 b8 [$ x  c8 n2 ^end;

ilikenba

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

xtmlj

好