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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
    label ok;
    label haschild;
    label nextnode;
begin
  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
3 q4 Z6 p/ @; c' _! g  strnode:=node.Text;
  dm.qtree.Close;
  dm.qtree.SQL.Clear;
$ g6 W( [, @' z% `2 \  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
: }' G! F/ s, F) X; x8 }8 y  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
1 H; s8 W# l1 e$ ]" I$ w( w  begin   //将所有员工姓名都作为子节点添加
    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
% z) \4 T& a" \- r) `    dm.qtree.Next;
+ m7 q4 O, g  G    until dm.qtree.Eof;
8 @1 \$ w; n; S7 y  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
8 _# g) d$ i0 G4 i: L" v  begin
2 B3 B+ K3 W& F. Nnextnode:    node:=node.getNextSibling;  //取得下一个同级节点
6 N7 T; a' c: H% E- w    goto haschild;
9 u8 V3 P5 o* Q5 b8 p  end
' B7 a$ j8 J( m1 S' z  else
2 F; _" r) n% W  f2 u! S: h  begin
    if node.Index =treeview1.Items.Count then goto ok
6 j1 w7 S* D8 Y1 j5 `1 g; ?2 _  z    else goto nextnode;
, s8 |: c8 a$ t  end;
ok:null;
$ n& [: y+ b9 d8 eend;

ilikenba

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

xtmlj

好