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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
# g" ], w' z' c4 Z/ e4 E$ i) a" Lprocedure Trs.TreeView1Click(Sender: TObject);
* b: ^9 c9 K: R& X& Z& ?1 Ivar node: TTreeNode;
+ L1 R% p1 E6 t" \7 P% P* z    strnode:string;
    label ok;
    label haschild;
    label nextnode;
begin
  node:=treeview1.TopItem;
9 Z5 d  o, k  i5 u' b+ ?) Uhaschild: node:=getfirstchild(node);
3 i6 n: ]( ?% U' X# |6 _' t2 V# |  strnode:=node.Text;
8 Q, e  n! h% E) U& ^  dm.qtree.Close;
0 L  c% X% V; v- o+ b  dm.qtree.SQL.Clear;
# H: A) X% ~9 }+ v" v  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
8 d; l' B$ H  z  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
! s% A3 Z" U. C* R    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 //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
  else
# ^7 u( J, j! I2 m  begin
    if node.Index =treeview1.Items.Count then goto ok
( Z; G3 k; K7 d8 l$ B    else goto nextnode;
9 D: ^% v& N' _  Z5 Z, O! J  end;
. J# o( Z  t; h7 [9 A1 T7 Bok:null;
end;

ilikenba

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

xtmlj

好