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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
, e& ^( y' p! d+ A3 \: |6 iprocedure Trs.TreeView1Click(Sender: TObject);
$ i' t7 l: w; l1 ]var node: TTreeNode;
  F: w. J! \, m" P    strnode:string;
    label ok;
% A4 l$ j% v) H* \* X% m2 S7 [    label haschild;
    label nextnode;
, P/ Z0 E; i2 Nbegin
  node:=treeview1.TopItem;
  h4 |2 J5 V5 ^/ |- ~6 f) T' whaschild: node:=getfirstchild(node);
) R& y4 T2 y+ J% b" @* Q  strnode:=node.Text;
  dm.qtree.Close;
: q7 M& K' f' S& J( q0 @  dm.qtree.SQL.Clear;
  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
: R6 k' q  X  w5 d6 w  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
, [/ m9 P/ k; w3 v, a9 e( |, ^1 v, e    strnode:=dm.qtree.fieldbyname('empname').AsString;
1 k. m: D4 p% O    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
    until dm.qtree.Eof;
  end;
6 p1 t) i. e$ @$ Z  L0 @& G  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
1 A& X9 }/ T/ J! l; i/ ]5 Unextnode:    node:=node.getNextSibling;  //取得下一个同级节点
! |# j- M; K0 O7 w: ]" m    goto haschild;
$ A7 G% S9 P7 p; u7 A3 X  end
" X, \9 u" P3 y" ]* F+ d  else
  begin
2 e7 M$ ]7 x, }6 u# e    if node.Index =treeview1.Items.Count then goto ok
' p. @+ G$ h$ K% Q' T8 s0 D  L    else goto nextnode;
  end;
ok:null;
) u, q( R5 K2 N$ l* s) _2 H( c3 \end;

xtmlj

好

ilikenba

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