Question

如何正确使用匿名函数？我正在尝试使用通用比较函数，但我在下面的示例中得到以下错误。有人可以解释为什么会发生这种情况吗？

program Project11;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.Classes;

type
  TSort<T> = record
  private
    type
      TCompare = reference to function(const L, R: T): Integer;
  public
    class procedure Sort(var A: Array of T; const First, Last: Integer; const Compare: TCompare); static;
  end;

{ TSort<T> }

class procedure TSort<T>.Sort(var A: array of T; const First, Last: Integer; const Compare: TCompare);
var
  I: Integer;
begin
  I := Compare(1, 2); // [dcc32 Error] Project11.dpr(30): E2010 Incompatible types: 'T' and 'Integer'
end;

var
  A: Array of Integer;
begin
  TSort<Integer>.Sort(A, 1, 2,
  function(const L, R: Integer): Integer
  begin
    // Do something with L & R
  end);
end.

Answer 1

我认为你应该真的想要

I := Compare(A[1], A[2]);

或

I := Compare(A[First], A[Last]);

而不是

I := Compare(1, 2);

正如TLama已经提到的：Compare需要两个类型为T的参数.A是一个T数组，因此您可以提供其成员。然而，1和2是整数。

你后来说你希望T是一个整数的事实在这一点上是不相关的：如果你可以说你的代码总是使用整数作为T，那你就不应该使用通用的

如何使用匿名函数？

1 个答案: