delphi - 如何对 Typed Tlist 进行排序

Question

我有许多类型化的 TList，但在排序时遇到了问题

通常，对于无类型的 TList，我会有一个函数，例如：

function SortByJob(Item1: Pointer; Item2: Pointer): Integer;
var
  p1, p2: JobPointer;
begin
   p1 := JobPointer(Item1);
   p2 := JobPointer(Item2);
   if p1.job > p2.job then
      Result := 1
   else
      if p1.job = p2.job then
         Result := 0
      else
         Result := -1
end;

列表将调用哪个

JobList.Sort(SortByJob)

但是，我在当前的应用程序中决定将 TLists 锁定为某些指针类型，因此在上面的示例中，我们将 JobList 声明为：

JobList: array[0..4] of TList<JobsPointer>;

现在当我打电话

JobList[0].Sort(SortByJob)

我收到“参数不足”错误。

有任何想法吗？

我比较过，如果我在无类型的“标准”TList 上使用上面的排序函数，那么它将正确编译......

Answer 1

使用 IComparer 的实例对通用列表进行排序。这是一个对整数列表进行排序的示例：

uses Generics.Collections, Generics.Defaults;

procedure TForm1.FormCreate(Sender: TObject);
var
  L : TList<integer>;
begin
  L := TList<integer>.Create;
  L.Add(2);
  L.Add(1);

  L.Sort(TComparer<integer>.Construct(
    function (const L, R: integer): integer
    begin
      Result := L - R;
    end
  )) ;

  L.Free;
end;