shelltreeview问题?

Question

？请问如何循环添加它的子节点？
  急！！

Answer 1

代码如下：
procedure TForm1.Button1Click(Sender: TObject);
  var
    i:integer;
begin
 //showmessage(getstr);
   with dm.aq do
     begin
       dm.aq.ConnectionString:=getstr;
       dm.aq.Active:=true;
       sql.Clear;
       sql.Text:='select * from b_area';
       open;
     end;
     stv1.Items.Item[0].Text:='全部地区';
     stv1.Items[0].Parent ;
  for i:=0 to dm.aq.RecordCount-1 do
     begin
      stv1.Items.AddChild('全部地区','dm.aq.FieldValues['area']');
      dm.aq.Next;
     end;
end;

Answer 2

帮你UP一下，找别的大哥来帮忙吧．UP up up