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

最新推荐文章于 2017-04-08 10:56:05 发布

原创

最新推荐文章于 2017-04-08 10:56:05 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

本文记录了在Delphi中如何利用泛型和自定义比较器对复杂数据类型（如TPerson记录类型）进行排序的操作过程。通过创建TDelegatedComparer并指定比较函数，实现了按年龄升序排列的TPerson列表。排序后的数据展示在OutMemo中，显示姓名和年龄信息。

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;