要用到泛型的 TObjectList<>,必须先 uses 以下两个单元:
然后,有一个我自己定义的 TObjectList
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;