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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
7 m# w* D! j! vprocedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
) E- O7 j# _4 x    strnode:string;
    label ok;
! |# T0 }/ r* t+ p7 Q% E    label haschild;
    label nextnode;
begin
  node:=treeview1.TopItem;
; c+ _1 X1 S' D$ U" v5 rhaschild: node:=getfirstchild(node);
' Z4 M2 C) w" O1 Q+ s: Y6 E  strnode:=node.Text;
: }) J) h- N9 L8 `7 ?" ]6 Q  dm.qtree.Close;
  dm.qtree.SQL.Clear;
6 u4 I$ j& h, f0 |  H" v: E& U. U+ `& F  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
5 d' {5 q& C. R# v. o" \  begin   //将所有员工姓名都作为子节点添加
    repeat
3 U) {: R% P6 O( Q9 a    strnode:=dm.qtree.fieldbyname('empname').AsString;
* F9 ?5 n" W. L; T/ [    treeview1.Items.AddChild(node,strnode);
1 p' J* i  u% ^& ^! K    dm.qtree.Next;
2 D1 q& f9 Y- B' j; B( z    until dm.qtree.Eof;
/ M# L" i" Y, q1 Z  n2 j! h; J& }4 K  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
6 N1 W) d1 R4 g  else
  begin
. D; p& l1 ~3 E7 Z    if node.Index =treeview1.Items.Count then goto ok
8 n3 m$ T- R3 L    else goto nextnode;
  end;
ok:null;
end;

ilikenba

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

xtmlj

好