Delphi XE - TObjectList 排序

Question

我有一个这样的列表：

FMyScheduleList: TObjectList<TMySchedule>;

它有一个属性：

property ADate: TDate read FDate write FDate;

如何按此属性对列表进行排序？

Answer 1

您必须实现一个自定义IComparer 函数，将此实现传递给System.Generics.Collections.TObjectList 类的Sort 方法，您可以使用带有System.Generics.Defaults.TComparer 方法的匿名方法来做到这一点，就像这样。

FMyScheduleList.Sort(TComparer<TMySchedule>.Construct(
      function (const L, R: TMySchedule): integer
      begin
         if L.ADate=R.ADate then
            Result:=0
         else if L.ADate< R.ADate then
            Result:=-1
         else
            Result:=1;
      end
));

正如@Stefan 建议的那样，您也可以使用System.DateUtils 单元中定义的CompareDate 函数。

FMyScheduleList.Sort(TComparer<TMySchedule>.Construct(
      function (const L, R: TMySchedule): integer
      begin
         Result := CompareDate(L.ADate, R.ADate);
      end
));