小问题急急!!!!有关函数的参数传递问题？？？？？？

Question

var
   bootnodes:Ttreenode; 
   bootname:string;
   begin
   bootname:='aa';
  bootnodes:=ttreenode.create(treeviewl);
 bootnodes:=treeview2.items.add(nil,bootname);
   uf('aa',bootnodes,treeview1);
   end;

Answer 1

to:sunny518(灵犀)
您下面这句出错：
bootnodes:=ttreenode.create(treeviewl);运行不下去。

Answer 2

当然是参数不对了，你看一看第二个参数,是TTreeNodes型的
   uf(indexs:string;nodes:Ttreenode;tv:Ttreeview):boolean;你再看一看你的调用
   bootnodes:=treeview2.items.add(nil,bootname);
这样调用后的bootNodes应该是TTreeNode型的，这时调用
   uf('aa',bootnodes,treeview1);
参数当然不同了

Answer 3

函数定义如下：
 function Tform1.uf_create(treeindexs:string;nodes:Ttreenode;tv:Ttreeview);
var
 i:integer;
 nodelabel:string;
begin
  adoquery2.close;
  adoquery2.sql.clear;
  adoquery2.sql.add('select * from dzys where parentid=:dd');
  adoquery2.Parameters [0].value:=treeindexs;
  adoquery2.open;    for i:=1 to adoquery2.RecordCount  do
    begin
       adoquery2.RecNo :=i;
       treeindexs:=adoquery2.Fieldbyname('childid').AsString;
       nodelabel:=adoquery2.Fieldbyname('childname').AsString;
       nodes:=tv.Items.addchild(nodes,nodelabel);
       uf_create(treeindexs,nodes,tv);
    end;
end;
急!!!