Delphi 的泛型和匿名函数：对 TObjectList<> 做排序

要用到泛型的 TObjectList<>，必须先 uses 以下两个单元：

System.Generics.Collections, System.Generics.Defaults

其中，第二个单元用于 TComparer 的声明.

假设这里有一个我自己定义的类：

TMyObj = class
  private
  public
    FMyName: string;
  end;

然后，有一个我自己定义的 TObjectList 

FList: TObjectList<TMyObj>;

那么，对这个 FList 做 Sort 的方法是在它的 Sort 方法里面，写入自己的排序算法的匿名函数。

procedure TForm2.SortMyList;
begin
  FList.Sort(
    TComparer<TMyObj>.Construct(
      function (const L, R: TMyObj): Integer
      begin
        Result := CompareStr(L.FMyName, R.FMyName);
      end
    )
  );
end;