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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
' w' v; l9 e% Y' W' u    label ok;
    label haschild;
    label nextnode;
6 h1 q$ P9 V/ {) s2 Vbegin
0 r# Z& g& h: O% y5 w% x4 _  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
  strnode:=node.Text;
  dm.qtree.Close;
, I. ]7 l3 X' p4 X3 M  dm.qtree.SQL.Clear;
  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
    repeat
" x% K8 ?9 g  E; @. I( K    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
7 E' A8 K) G# w: b9 Y9 v& c0 o    dm.qtree.Next;
: _" X4 d" a* G: {    until dm.qtree.Eof;
1 ]9 H4 p& G) X, `* x  end;
4 f" b6 R* o! t9 c2 O  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
+ R2 b! S( I' l: `( o" f4 hnextnode:    node:=node.getNextSibling;  //取得下一个同级节点
+ z; n% x% I3 Z2 s+ D; D* c  X3 G    goto haschild;
  end
) A1 U. C5 R; G4 Z! e  else
9 {  Q' O* k2 R3 @1 ?4 A2 r) B4 Z5 y  begin
    if node.Index =treeview1.Items.Count then goto ok
8 p1 b) l, m) S0 H  b6 l    else goto nextnode;
; E/ o. [2 G4 [- B  end;
7 G+ S! n5 E2 p8 nok:null;
end;

ilikenba

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

xtmlj

好