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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
3 z) S0 I5 E: l2 ^) i9 n$ V    label ok;
    label haschild;
! w% T& r: I) O4 b& |# Q    label nextnode;
( H  c( B/ R* W$ d: Zbegin
4 p' o2 Q1 s3 L  node:=treeview1.TopItem;
" i# H8 p, ]! S$ u  u3 ~haschild: node:=getfirstchild(node);
  strnode:=node.Text;
  dm.qtree.Close;
  dm.qtree.SQL.Clear;
5 z  q1 ^7 m* L& X- [  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
9 N* v4 w& e7 v: x; Z; ?  dm.qtree.Open;  //取得该部门下所有员工姓名
2 O- q1 v1 p5 t  `0 T) z  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
, r; ^2 p$ t: w( M8 h  e+ m  begin   //将所有员工姓名都作为子节点添加
# U  d5 t' u3 O8 D% r) {! ?    repeat
; O9 \% b: h% w+ a/ `    strnode:=dm.qtree.fieldbyname('empname').AsString;
$ n! n4 f3 t: Y$ N    treeview1.Items.AddChild(node,strnode);
/ G/ W9 H2 v' R0 y    dm.qtree.Next;
    until dm.qtree.Eof;
8 C' M5 W) g7 X) N1 I  C2 T- J  p  end;
% O6 B0 k1 [  C& `  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
* b& l$ F% f9 p0 X' wnextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
: _- d: n) T4 r. c3 i( e  else
  begin
. P& t# Z$ j2 w7 B" m" F+ Y( ]    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
  end;
5 j0 I' M- a* Z! p8 ]# tok:null;
end;

ilikenba

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

xtmlj

好