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

boyle

我想实现这样的功能，遍历tree中的节点。树是单位的部门结构树，节点是其中部门，已经添加好的。我想遍历树中所有节点，如果没有子节点说明是单位中的最小部门，然后查询改部门的员工并添加到该部门以下。下面的代码，一直都出错，好像是内存读取错误。请帮忙，三拜～～～
+ T8 H/ _7 n: E9 \0 Nprocedure Trs.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    strnode:string;
    label ok;
' d' a; @; v) E, H3 h, R5 K2 l* t- V! J& S    label haschild;
    label nextnode;
7 n8 W3 k7 R! d% |begin
& y5 C0 d: w  b5 a  {. Y& ^! C" m  node:=treeview1.TopItem;
+ Q2 H0 u: I! Ghaschild: node:=getfirstchild(node);
  strnode:=node.Text;
  dm.qtree.Close;
( V9 g# n% u' E2 Z8 b) E  dm.qtree.SQL.Clear;
" U9 i) ~2 c) J1 r" v- w7 p" }5 n  dm.qtree.SQL.Text:='select empname from empbasic where depid='+''''+strnode+'''';
  dm.qtree.Open;  //取得该部门下所有员工姓名
) E& Q0 \3 q. V' T4 m& D  if not(dm.qtree.IsEmpty) then   //如果记录非空（即该部门下有员工）
  begin   //将所有员工姓名都作为子节点添加
  g$ J9 }. s& E9 `7 [    repeat
    strnode:=dm.qtree.fieldbyname('empname').AsString;
    treeview1.Items.AddChild(node,strnode);
3 ^: g; p, ?2 {4 t2 \. ^    dm.qtree.Next;
    until dm.qtree.Eof;
  end;
' [$ }. k9 B3 q  A) K5 s  if not(node.IndexOf(node.Parent)=node.Parent.Count -1) then //如果当前节点不是同级节点最后一个
  begin
. {+ O; t6 \0 S; I+ Jnextnode:    node:=node.getNextSibling;  //取得下一个同级节点
) C& A5 F5 u& P/ x! ~$ w+ b+ ~. m    goto haschild;
# x: K" V' J) |6 ?/ i! J7 y! O3 i  end
% X- F6 T! h8 Q! [; `0 e9 ^" q  else
  begin
    if node.Index =treeview1.Items.Count then goto ok
. Y& p8 H0 N$ o/ Z- U% D6 [( r    else goto nextnode;
  end;
ok:null;
end;

ilikenba

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

xtmlj

好