函数名作参数

hujunyi

  type
    Tf1 = procedure (var v1: string); stdcall;
  procedure f1(var v1: string); stdcall;
  begin
    ShowMessage(v1);
  end;
  procedure f2(var f: Tf1);
  var
    s: string;
  begin
    s := DateTimeToStr(now());
    Tf1(f)(s);
  end;
var
  v: string;
begin
  f2(f1);
end;   

编译时提示f1参数数量错误，请问怎么解决，谢谢！

chenyuchih

應該是要用function吧！procedure是沒有回傳值的喔
而且即使用function當參數，也不可以用於傳址呼叫。

以上是我的個人理解，希望有真正懂得人指點一下。

zeus-chu

需要在 f1 前面加上 @ 运算符, 除非在 Delphi 模式下。

另外在 f2 裡调用 f 的时候不需要那个额外的 typecast。