Question

Delphi窗体应用程序中，函数传参怎么传多个类型的值？

//刷新函数
Function ReFresh(StorGoods,OutGoods:TADODataSet;Goods:TDBGrid) : Integer;
begin
StorGoods.Close;
StorGoods.CommandText := 'select * from StorGoods where Gid = ' + IntToStr(Goods.Columns.Grid.Fields[0].Value);
StorGoods.Open;
OutGoods.Close;
OutGoods.CommandText := 'select * from OutGoods where Gid = ' + IntToStr(Goods.Columns.Grid.Fields[0].Value);
OutGoods.Open;
end;

{$R *.dfm}
//出库入库查询
procedure TGoods.QueryButtonClick(Sender: TObject);
begin
//调用刷新函数，***********此处报错*********
ReFresh(ADODSStorGoods,ADODSOutGoods,GoodsTable);
end;

报的Too many actual parameters,
太多实参，但是那些实参确实有，而且在参数列表里也写了，是语法格式错了吧。

Answer 1

直接Table1.Refresh就可以了吧。反正在我的Delphi软件中提示不需要输入什么参数。

追问

现在重点不是调用函数名的问题，是我想把这玩意写到函数里...因为里面还要加别的处理。

追答

其实，cb120520025已经回答你的问题了。就是你自定义的ReFresh函数跟Delphi软件中已有的系统函数重名了，导致你引用ReFresh函数时，实际上默认地采用的是系统函数，而不是你自定义的函数。所以，你需要更改你的自定义函数的名字。另外，碰到编程问题时，不要急躁，不然别人的意见你一句也听不懂。

追问

改成TableReFresh，依旧报错，其实是你在回答问题的时候很急躁，我并没什么急躁的，你根本没看完我问的到底是什么，就胡乱回答了。

这第二条追问了，不追问了

Answer 2

也有可能是其它原因
比如你的函数没有返回值，还有可能函数名与其它某处重复了，而那处的参数少之类

追问

我明确说了就是报的太多实参，如果我写ReFresh(a:integer;b:String)我该怎么调用？