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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
    label ok;
    label haschild;
; o4 o' A" F! F$ E0 J3 T    label nextnode;
4 D. T, y4 U6 S3 y6 _. N% Ubegin
/ p7 p/ y+ P* P2 E3 h  node:=treeview1.TopItem;
1 t% d; q! }4 r1 X$ P/ d. C9 b3 ^haschild: node:=getfirstchild(node);
  strnode:=node.Text;
2 Y+ _; E! F# J" P( H; {  dm.qtree.Close;
& r- }# W$ X" c4 \* R2 P  dm.qtree.SQL.Clear;
0 T2 }" ^# ^0 o  H' \3 L* _3 T  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
' J1 F, P) L$ |1 _( `, B  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
% H- B7 M/ H9 {9 G: @  begin   //将所有员工姓名都作为子节点添加
    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
: b, o) G+ O  ]/ g8 Z! I    until dm.qtree.Eof;
  h, N& [/ S/ h: i* E  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
" d' K9 b" V/ W1 L% Z- h! D- D6 ?    goto haschild;
  end
  else
- G9 U' u1 u7 r2 u  begin
    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
  end;
ok:null;
6 G# w0 A) s: d7 c. Send;

ilikenba

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

xtmlj

好