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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
) |- j3 q* a; w: W( F6 uvar node: TTreeNode;
    strnode:string;
    label ok;
* }% h4 D& I5 x    label haschild;
0 p+ w2 }2 x  [' u    label nextnode;
/ P/ h' ]1 i8 b. Nbegin
  node:=treeview1.TopItem;
5 |* E2 A/ e: Z: r" }- L( c" Vhaschild: node:=getfirstchild(node);
5 U6 t- ?( d8 l2 j/ b! _+ u) k  strnode:=node.Text;
  dm.qtree.Close;
  dm.qtree.SQL.Clear;
, o# l1 B0 t+ z  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
! F6 [5 `0 k& j( S) z  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
9 p9 ^) Y& e( C! d0 e    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
    until dm.qtree.Eof;
( q* F' u3 `6 Y* j0 Z' d; C  end;
' I* f- e! v/ H  ]  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
& r( ^: j; b5 L* K, D! @" P; s  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
/ |4 @- g# d5 G7 K2 p: p0 y    goto haschild;
* D' q3 T  Q1 H4 k- t9 s  end
  else
% ?5 |/ a6 D& O& ~+ R  begin
    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
9 g& G4 }( V' y* }5 U& L& F7 Z  end;
0 l8 d5 @' O$ {, R* `ok:null;
end;

ilikenba

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

xtmlj

好