Delphi - 根据对象的属性对TList <tobject>进行排序

Question

如何根据我选择的属性对此对象列表进行排序？

empList: TList<TEmployee>;

empList.Add(TEmployee.Create('Bob', 1000);
empList.Add(TEmployee.Create('Alice', 2000);
empList.Add(TEmployee.Create('Mary', 40000);
empList.Add(TEmployee.Create('Jack', 500);

//Sorting code

CustomSort(empList, name); //Sort by name
CustomSort(empList, salary); //Sort by salary

• Alice（$ 2000）
• Bob（$ 1000）
• 杰克（$ 500）
• Mary（$ 40000）

按薪水排序

• 杰克（$ 500）
• Bob（$ 1000）
• Alice（$ 2000）
• Mary（$ 40000）

我知道有一种方法可以使它工作，但它很慢且手动（比较每个对象和排序）

没有必要通过＆＃34;萎缩＆＃34;参数（如果我愿意，我可以list.Reverse）

先谢谢