我刚刚开始使用泛型，目前在对多个字段进行排序时遇到问题。
案例：
我有一个 PeopleList 作为一个TObjectList<TPerson>，我希望能够通过一次选择一个排序字段来制作类似 Excel 的排序功能，但尽可能保持以前的排序。
编辑：必须可以在运行时更改字段排序顺序。（即，在一种情况下，用户想要排序顺序 A、B、C - 在另一种情况下，他想要 B、A、C - 在另一个 A、C、D 中）
假设我们有一个未排序的人员列表：
Lastname Age
---------------------
Smith 26
Jones 26
Jones 24
Lincoln 34
现在，如果我按 LastName 排序：
Lastname ▲ Age
---------------------
Jones 26
Jones 24
Lincoln 34
Smith 26
然后，如果我按年龄排序，我想要这个：
Lastname ▲ Age ▲
---------------------
Jones 24
Jones 26
Smith 26
Lincoln 34
为此，我制作了两个比较器 - 一个 TLastNameComparer 和一个 TAgeComparer。
我现在打电话
PeopleList.Sort(LastNameComparer)
PeopleList.Sort(AgeComparer)
现在我的问题是这不会产生我想要的输出，但是
Lastname ? Age ?
---------------------
Jones 24
Smith 26
Jones 26
Lincoln 34
其中 Smith,26 出现在 Jones,26 之前。所以它似乎没有保留以前的排序。
我知道我只能制作一个比较 LastName 和 Age 的比较器 - 但问题是，我必须为 TPerson 中存在的每个字段组合制作比较器。
是否可以使用多个 TComparers 来做我想做的事情，或者我怎样才能完成我想做的事情？
新年更新
仅供将来访问者参考，这（几乎）是我现在使用的代码。
首先，我创建了一个基类TSortCriterion<T>和一个TSortCriteriaComparer<T>，以便将来能够在多个类中使用它们。我已将 Criterion 和 list 分别更改为TObject和TObjectList，因为我发现如果 objectlist 自动处理 Criterion 的破坏会更容易。
TSortCriterion<T> = Class(TObject)
Ascending: Boolean;
Comparer: IComparer<T>;
end;
TSortCriteriaComparer<T> = Class(TComparer<T>)
Private
SortCriteria : TObjectList<TSortCriterion<T>>;
Public
Constructor Create;
Destructor Destroy; Override;
Function Compare(Const Right,Left : T):Integer; Override;
Procedure ClearCriteria; Virtual;
Procedure AddCriterion(NewCriterion : TSortCriterion<T>); Virtual;
End;
implementation
{ TSortCriteriaComparer<T> }
procedure TSortCriteriaComparer<T>.AddCriterion(NewCriterion: TSortCriterion<T>);
begin
SortCriteria.Add(NewCriterion);
end;
procedure TSortCriteriaComparer<T>.ClearCriteria;
begin
SortCriteria.Clear;
end;
function TSortCriteriaComparer<T>.Compare(Const Right, Left: T): Integer;
var
Criterion: TSortCriterion<T>;
begin
for Criterion in SortCriteria do begin
Result := Criterion.Comparer.Compare(Right, Left);
if not Criterion.Ascending then
Result := -Result;
if Result <> 0 then
Exit;
end;
end;
constructor TSortCriteriaComparer<T>.Create;
begin
inherited;
SortCriteria := TObjectList<TSortCriterion<T>>.Create(True);
end;
destructor TSortCriteriaComparer<T>.Destroy;
begin
SortCriteria.Free;
inherited;
end;
最后，为了使用排序标准：（这只是为了示例，因为创建排序顺序的逻辑实际上取决于应用程序）：
Procedure TForm1.SortList;
Var
PersonComparer : TSortCriteriaComparer<TPerson>;
Criterion : TSortCriterion<TPerson>;
Begin
PersonComparer := TSortCriteriaComparer<TPerson>.Create;
Try
Criterion:=TSortCriterion<TPerson>.Create;
Criterion.Ascending:=True;
Criterion.Comparer:=TPersonAgeComparer.Create
PersonComparer.AddCriterion(Criterion);
Criterion:=TSortCriterion<TPerson>.Create;
Criterion.Ascending:=True;
Criterion.Comparer:=TPersonLastNameComparer.Create
PersonComparer.AddCriterion(Criterion);
PeopleList.Sort(PersonComparer);
// Do something with the ordered list of people.
Finally
PersonComparer.Free;
End;
End;