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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
' b4 m9 s3 d! Rprocedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
" [/ ~6 B. N0 R) @4 G    label ok;
7 W+ C+ P7 u$ S    label haschild;
    label nextnode;
begin
  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
  strnode:=node.Text;
/ H, W: K) j4 r4 v% h% D  dm.qtree.Close;
% M: X( i- q9 {5 R- D  T  dm.qtree.SQL.Clear;
: x4 z) o/ I" d# `( z  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
% f: o: p9 `" e. D5 B. @( \; P8 F  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
/ n. S: P# _/ l    repeat
8 O& [4 y' V  M2 v% [- }; d    strnode:=dm.qtree.fieldbyname('empname').AsString;
/ a0 w, v- u/ K4 i    treeview1.Items.AddChild(node,strnode);
    dm.qtree.Next;
    until dm.qtree.Eof;
5 W, R3 L+ h, G% F" ]  end;
( F, _4 B* u3 R  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
( Q, j/ r. b! G  begin
9 B$ g; B2 z: |2 u: m: onextnode:    node:=node.getNextSibling;  //取得下一个同级节点
9 B, ^& f! H' h; {    goto haschild;
  end
0 L# C( r6 L5 @( M+ P/ f1 w  else
  begin
    if node.Index =treeview1.Items.Count then goto ok
' x$ s  M/ `- L6 M    else goto nextnode;
( @2 F- J) b- D  N- ]: {  end;
  N1 b: j! |% v9 f! Ook:null;
; Y/ w. `/ y7 y# Zend;

ilikenba

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

xtmlj

好