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

2017-04-08 12:04:03来源:CSDN作者:pcplayer人点击

要用到泛型的 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;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台