怎样实现TreeView ,从数据库,(重发),最好给各能用的例子

procedure TForm1.FormCreate(Sender: TObject);
begin
  with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('select longid,text from tree..testtree');
      open;
      first;
      while not adoquery1.eof do
        begin
          treeview1.Items.AddChildObject(nil,adoquery1.fieldbyname('longid').value,pstr);
          next;
        end;
    end;
这个问题我也想问呢，这是个简单的例子，或许能让你有启发。