如何使用匿名函数？答案

【问题标题】：How to use anonymous functions?如何使用匿名函数？
【发布时间】：2014-08-16 00:10:50
【问题描述】：

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

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.

【问题讨论】：

FWIW, TArray.Sort<T> in Generics.Collections 已经实现了这一点。而且，FWIW，你的比较功能不好。想象一下当L 是high(Integer) 而R 是low(Integer) 时会发生什么。
@DavidHeffernan compare 函数可以是任何没有任何接口的泛型之美。
你正在从 System.Generics.Collections 和 System.Generics.Defaults 重塑事物。
你不需要处理任何接口。您可以只提供一个比较功能。而且我不称您的比较功能很漂亮。我称之为溢出生成器。您的整个代码可以替换为TArray.Sort<Integer>(A)。如果您想提供比较功能，请使用 TArray.Sort<Integer>(A, TComparer<Integer>.Construct(Comparison)) 其中Comparison 是您的匿名方法。
另外，为具有完整代码和完整错误消息的非常好的 SSCCE +1。

标签： delphi delphi-xe6

【解决方案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，那么您不应该使用泛型

【讨论】：

T 不仅仅是一个整数。
@user3764855 这么认为（否则使用泛型没有意义）。所以在那种情况下Compare(1, 2) 肯定是错误的。