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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
4 H; s  J( k8 pvar node: TTreeNode;
    strnode:string;
    label ok;
1 R( R9 l" E( z7 P+ ~    label haschild;
; v; Y1 \7 w3 W/ r( f    label nextnode;
begin
+ ~$ h6 H/ @- z  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
8 t8 p. i# I- U) w' U  strnode:=node.Text;
  dm.qtree.Close;
7 i( u( y% F  o9 b& ~( m, ^& w4 @8 Z  dm.qtree.SQL.Clear;
, A0 X+ k7 l8 _! ?, T  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
' ^0 B9 h* h) n9 ?5 b( a) E  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
, u, g* F( C# T. p7 j- i  begin   //将所有员工姓名都作为子节点添加
. t" B1 Z# m8 `# r4 Z! x    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
0 Q7 E. J- T4 Y" e7 |    treeview1.Items.AddChild(node,strnode);
1 N) E0 q9 l2 y5 O    dm.qtree.Next;
    until dm.qtree.Eof;
+ u1 H* v- G; }+ ]+ m0 Z) I  end;
  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
: e& _! w4 n2 U8 `& W& n- B: t  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
$ l9 [. V3 x4 `) J  n# U2 b. C  else
  begin
. {( L1 W+ b2 [- v+ N    if node.Index =treeview1.Items.Count then goto ok
# y, n5 o( n# s) B$ M    else goto nextnode;
  end;
% e% U- f1 T" K. s, |2 aok:null;
  F; m. e0 L. g$ uend;

xtmlj

好

ilikenba

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