如何使用 TComparer 对记录列表进行排序？

Question

我有一个包含文件数据的记录：

TYPE
 RFile= record
  public
    FileName     : string;
    Resolution   : Integer;
    FileSize     : Cardinal;
    Rating       : Byte;
   end;
 PFile= ^RFile;

我将这些文件/记录的列表保存在一个 TList

 TFileList= class(TList<PFile>)
     procedure SortByFilename;
     procedure SortByRating;
     procedure SortByResolution;
     procedure SortBySize;
  end;

我有诸如 SortByFilename、SortBySize 等方法来对列表进行排序。
我做“经典”排序。

现在我想升级到全新酷炫的 System.Generics.Defaults.TComparer。
据我了解，我需要为我的 TFileList 分配一个比较器，例如

  TIntStringComparer = class(TComparer<String>)
  public
    function Compare(const Left, Right: String): Integer; override;
  end;

我该怎么做？
如何为每个数据字段（文件名、文件大小、分辨率）处理一个比较器？

---

更新：
这段代码可以编译，但我有一个 EIntegerOverflow，因为 FileSize 是一个基数，而我返回一个整数（两个基数之间的差异）。

Sort(TComparer<PFile>.Construct(
  function(CONST A,B: PFile): integer
  begin
   Result:= A.FileSize - B.FileSize;
  end
 ));

Answer 1

当你为数值类型编写比较器时，你永远不应该使用减法，即使你的数据类型是有符号的。

确实，尝试将a = 100 和b = -2147483640 与Integers 进行比较；很明显a > b，但是减法会产生错误的结果。

相反，你应该总是做类似的事情

if a = b then
  Result := 0
else if a < b then
  Result := -1
else
  Result := 1;

但 Delphi 的 RTL 已经包含用于此目的的函数：Math 单元中有几个 CompareValue 重载（用于不同类型的整数和浮点数 - 但不幸的是，不适用于 Cardinals）。

因此，尽管如果您这样做，您的 sn-p 将“大部分时间”工作

Result := Integer(A.FileSize) - Integer(B.FileSize)

这还不够好：一方面，不是每个Cardinal 都适合Integer。此外，如上所述，减法不是要走的路。

在您的情况下，您可以直接使用上面的if 东西，或者您可以为Cardinals 创建一个新的CompareValue 重载。或者，你可以这样做

Result := CompareValue(Int64(A.FileSize), Int64(B.FileSize)).

（另外，正如其他人在 cmets 中所说，您应该重新考虑首先使用 Cardinal 来存储文件大小是否明智。如果您将其升级到 Int64 或 UInt64 您会写简单

Result := CompareValue(A.FileSize, B.FileSize).)