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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
8 x& U4 e. v/ ?" jprocedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
: m, {: |( l5 R% L    label ok;
; O( a" |8 q* O    label haschild;
    label nextnode;
begin
8 E; N9 r) H- O/ v) \4 y  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
  strnode:=node.Text;
/ z2 c6 m( f7 t; M  dm.qtree.Close;
" b' c+ f" v7 Y0 L: K9 V9 f  dm.qtree.SQL.Clear;
3 B* s2 w* s4 L) W+ T9 e6 x7 \6 n5 k  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
* N7 o* W. g) F. u0 C9 s  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
3 E$ V' n: ^- g' e7 T3 i+ C$ R  begin   //将所有员工姓名都作为子节点添加
    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
    until dm.qtree.Eof;
  end;
) @# J& {! ]* x7 i  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
7 O4 Y* Q; U* {3 |nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
! Y  ?7 Q/ l2 ?# g$ a) F5 C# w    goto haschild;
$ w6 J" T. m- J: |8 y% F  end
: M, y6 H+ e$ [- e  p& p3 S  else
  begin
3 m' n" L: y) t6 `2 |" p    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
0 q( u+ H. S! t: s: v/ ]6 X' o% }  end;
# Y, @8 T9 Z! ?2 Y) ]6 Bok:null;
0 G4 _4 c; d: q  T. M3 l$ Qend;

ilikenba

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

xtmlj

好