delphi - TFunc - 有什么方法可以传递输入参数修饰符吗？

Question

我需要将函数作为参数传递，如下所示:

procedure SomeProc(AParameter: TFunc<Integer, Integer>);

当我有这个功能时...

function DoSomething(AInput: Integer): Integer;
...
SomeProc(DoSomething);
...

...代码有效。但是使用 const、var 等参数修饰符或像...这样的默认值

function DoSomething(const AInput: Integer = 0): Integer;

...编译器返回参数列表不匹配的错误。

有什么方法可以传递参数修饰符，或避免此错误吗？

非常感谢您的建议。

Answer 1

您可以将其包装在匿名方法中，如下所示:

SomeProc(function(Arg: Integer): Integer begin Result := DoSomething(Arg) end);