delphi对复杂泛型排序学习笔记

procedure TForm1.Button1Click(Sender: TObject);
type
  TPerson = record
    Name: String;
    Age: Integer;
  end;
var
  List: TList<TPerson>;
  Comparer: TComparer<TPerson>;
  OutList, TPerson1, TPerson2, TPerson3: TPerson;
begin
  Comparer := TDelegatedComparer<TPerson>.Create(
    function(const Left, Right: TPerson): Integer
    begin
      Result := Left.Age - Right.Age; // 升序，阼序调换Left、Right前后位置
    end);
  List := TList<TPerson>.Create(Comparer);
  TPerson1.Name := '张三';
  TPerson1.Age := 23;
  TPerson2.Name := '李四';
  TPerson2.Age := 20;
  TPerson3.Name := '王五';
  TPerson3.Age := 24;
  List.add(TPerson3);
  List.add(TPerson2);
  List.add(TPerson1);
  List.Sort();
  OutMemo.Clear;
  for OutList in List do
    OutMemo.lines.add(format('姓名:%s 年龄:%d', [OutList.Name, OutList.Age]));
  List.Free();
end;