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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
procedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
1 q8 O, E6 Q( N$ v    label ok;
* H5 h- j, ^' U+ x; J# u  b5 }" I    label haschild;
/ A6 S- e7 ]1 W: X8 J: s; k    label nextnode;
: O$ |% R3 [3 L$ n4 I, I! ibegin
# A$ R3 B; ?! ?0 ?5 `3 {  node:=treeview1.TopItem;
haschild: node:=getfirstchild(node);
3 r% t" K  \+ M' n  strnode:=node.Text;
2 z+ g$ q& N9 A" D  dm.qtree.Close;
5 k$ v) k) u  O; H/ ~! d. \" H  dm.qtree.SQL.Clear;
  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
6 ~. E" c. o& `0 ~  E- l9 g  dm.qtree.Open;  //取得该部门下所有员工姓名
7 F2 i3 X- B8 n9 @8 G  h: F+ ^+ o  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
5 m' R, u6 q$ M4 Y' s. W  begin   //将所有员工姓名都作为子节点添加
0 B* t: U' Q8 F9 U    repeat
) i: m* l" }: p( h) e4 j, R4 g: y+ {    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
9 A# ^" |- G& e5 Q4 M) C    dm.qtree.Next;
. d% ]$ D. u8 h+ O( b9 g  \    until dm.qtree.Eof;
  end;
2 p! ~5 @" W5 O* m9 y3 D$ a# _  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
* X2 ~' }. M. @/ \. c  begin
" l9 y1 y! h  ], I) a1 t0 v3 {5 gnextnode:    node:=node.getNextSibling;  //取得下一个同级节点
    goto haschild;
3 B7 @+ P, K" ]* d  end
  else
  begin
    if node.Index =treeview1.Items.Count then goto ok
    else goto nextnode;
) T6 ]5 Z! j' @1 d9 H  end;
ok:null;
, C& M7 n5 o& `! ~1 ~% ?end;

ilikenba

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

xtmlj

好