delphi – 如何使用自定义比较器排序通用列表？

发布时间：2020-12-15 10:19:08 所属栏目：大数据来源：网络整理

导读：我有一个Delphi-newbie，我不知道如何调用记录TList的Sort方法，以便通过递增整数值对记录进行排序。我有一个记录如下： type TMyRecord = record str1: string; str2: string; intVal: integer; end; 和这样的记录的通用列表： TListMyRecord = TListTMyRe

我有一个Delphi-newbie，我不知道如何调用记录TList的Sort方法，以便通过递增整数值对记录进行排序。
我有一个记录如下：

type
   TMyRecord = record
     str1: string;
     str2: string;
     intVal: integer;
   end;

和这样的记录的通用列表：

TListMyRecord = TList<TMyRecord>;

尝试在帮助文件中找到一个代码示例，并找到了一个：

MyList.Sort(@CompareNames);

我不能使用，因为它使用类。所以我试图用一些不同的参数写我自己的比较函数：

function CompareIntVal(i1,i2: TMyRecord): Integer;
begin
  Result := i1.intVal - i2.intVal;
end;

但是编译器总是抛出一个“不够的参数” – 当我用open.Sort(CompareIntVal)来调用它时，这个错误似乎很明显;所以我试图靠近帮助文件：

function SortKB(Item1,Item2: Pointer): Integer;
begin
  Result:=PMyRecord(Item1)^.intVal - PMyRecord(Item2)^.intVal;
end;

以PMyRecord为PMyRecord = ^ TMyRecord;

我尝试了不同的调用函数的方法，总是得到一些错误…

解决方法

应该使用的Sort重载是这个：

procedure Sort(const AComparer: IComparer<TMyRecord>);

现在，您可以创建一个IComparer< TMyRecord>通过调用TComparer< TMyRecord> .Construct。喜欢这个：

var
  Comparison: TComparison<TMyRecord>;
....
Comparison := 
  function(const Left,Right: TMyRecord): Integer
  begin
    Result := Left.intVal-Right.intVal;
  end;
List.Sort(TComparer<TMyRecord>.Construct(Comparison));

我把比较函数写成一个匿名方法，但是你也可以使用一个简单的旧样式的非OOP函数或一个对象的方法。

您的比较功能的一个潜在问题是您可能会遇到整数溢出。所以你可以使用默认的整数比较器。

Comparison := 
  function(const Left,Right: TMyRecord): Integer
  begin
    Result := TComparer<Integer>.Default.Compare(Left.intVal,Right.intVal);
  end;

调用TComparer< Integer> .Default可能是昂贵的，您可以将其存储在全局变量中：

var
  IntegerComparer: IComparer<Integer>;
....
initialization
  IntegerComparer := TComparer<Integer>.Default;

要考虑的另一个选择是在创建列表时传入比较器。如果您只使用这个顺序对列表进行排序，那么这更方便。

List := TList<TMyRecord>.Create(TComparer<TMyRecord>.Construct(Comparison));

然后你可以排序列表

List.Sort;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!