Question

我正在尝试使用Delphi 10 Seattle并尝试创建我的第一个Generic Container类。我需要有关Generic Comparer的帮助

这是我创建的一个简单的Hash对象：

type
  TsmHeap<T> = class
  private
    fList: TList<T>;
    Comparer: TComparer<T>;
    procedure GetChildren(ParentIndex: integer; var Child1, Child2: integer);
    function GetParent(ChildIndex: integer): integer;
    function GetCapacity: integer;
    function GetCount: integer;
    function MustSwap(iParent, iChild: integer): boolean;
    procedure SetCapacity(const Value: integer);
  public
    constructor Create(aComparer: TComparer<T>); overload;
    constructor Create(aComparer: TCOmparer<T>; aCapacity: integer); overload;

    destructor Destroy; override;

    //-- Methods & Functions
    function Dequeue: T;
    procedure Enqueue(Item: T);
    function IsEmpty: boolean;

    //-- Properties
    property Count: integer read GetCount;
    property Capacity: integer read GetCapacity write SetCapacity;
  end;

我已经编写了方法的代码，并且它自己编译没有任何问题。但是，当我尝试创建类的整数版本时，我无法进行编译。

有问题的代码是：

iHeap := TsmHeap<integer>.Create(TComparer<integer>.Construct(
  function(const Left, Right: integer): integer
  begin
    result := Sign(Left - Right);
  end)
);

这给出了“E2250没有可以用这些参数调用的'Create'的重载版本”

我做错了什么？如何创建Comparer？

Answer 1

TComparer<T>.Construct返回IComparer<T> - 它是一个类函数，而不是构造函数。只需将TsmHeap<T>.Create的参数类型更改为IComparer<T>即可。

将自定义编译器传递给Delphi中的通用创建过程

1 个答案: