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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
( `1 s% I/ I7 g- u* U5 \/ I' \    strnode:string;
2 a1 R' H" ]9 l    label ok;
    label haschild;
* {/ F( @  z0 g) A6 X    label nextnode;
begin
  node:=treeview1.TopItem;
5 E4 u9 e* N: u6 v) H9 [haschild: node:=getfirstchild(node);
  strnode:=node.Text;
  dm.qtree.Close;
  dm.qtree.SQL.Clear;
' n: D- E$ A$ u* R9 r5 c  Y6 I) n  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
) ]8 [) I* X. ~7 C2 e4 p1 M6 \1 L. f  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
! J$ ?6 u( v3 P4 B5 k$ t  begin   //将所有员工姓名都作为子节点添加
- \; c" U- x1 f# V    repeat
; n9 p$ C7 D) z9 ~6 k6 a    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
    until dm.qtree.Eof;
  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
; M0 g5 ~8 G6 r- v& ~0 K4 E4 G  begin
% ~8 Q7 s1 }. l0 O' z6 @nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
  else
  begin
2 \1 D9 W; L( Q: W" ?5 h    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
* _/ D$ d$ }3 W7 t  end;
ok:null;
end;

ilikenba

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

xtmlj

好