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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
4 x2 H1 q* H9 lvar node: TTreeNode;
, {' S9 V. O* I- {/ u    strnode:string;
; f. j  _1 _0 X* b    label ok;
0 b7 n: Z5 k) ~6 Y9 l' d7 z2 K- Y    label haschild;
    label nextnode;
2 I9 [8 Y  H  I! Y* F  i7 A* R% dbegin
3 a+ @! L4 }  ^3 X/ v) h8 i  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
7 f$ L+ P; B$ t/ g: \4 k& Z# R6 s  strnode:=node.Text;
5 o" |% g; p8 F7 f. M8 f5 t3 a$ w  dm.qtree.Close;
  dm.qtree.SQL.Clear;
, h3 c9 S& L3 O  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
: G  A, n' }% s6 b  begin   //将所有员工姓名都作为子节点添加
    repeat
5 k0 x' i# O7 S+ H- U5 c    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
) N6 n  _& ^* C. o  z! V1 J2 g* ~    dm.qtree.Next;
1 b9 B" N8 L" w9 k$ D    until dm.qtree.Eof;
: D7 \7 K# R5 `) q  end;
* H/ f$ h% H0 v( X+ c! ^' C  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
nextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
  end
  else
  begin
    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
  end;
1 I6 d. s9 u6 }3 C# D& D4 c$ bok:null;
end;

ilikenba

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

xtmlj

好