我有一个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;