对tlist中的结构进行多项排序

最新推荐文章于 2021-02-02 16:15:07 发布

不得闲

最新推荐文章于 2021-02-02 16:15:07 发布

阅读量1.6k

点赞数

分类专栏： Delphi编程文章标签： integer string list button function forms

本文链接：https://blog.csdn.net/suiyunonghen/article/details/1898598

版权

本文介绍了如何对tlist中的结构数据进行多重排序。通过将排序字段转换为字符串并合并，然后根据合并后的字符串进行比较排序。示例展示了对姓名、性别和年龄的排序，帮助初学者理解此类排序方法。

摘要由CSDN通过智能技术生成

本文章来源于一个网友的提问如下：
我有一些数据，保存在tlist中，每项是个结构，如何在对一项排序的基础上，继续排序
排序前
张三男 25
王婆女 24
李四男 32
王婆2 女 27
王二男 28

排序以后
张三男 25
王二男 28
李四男 32
王婆女 24
王婆2 女 27

现在整理一下，从新提出来，希望给初学者一点帮助，通过分析
既然是要排序，那么要排的东西应该可以转换为字符串，既然可以转换为字符串，那么我们就可以通过将所有要排的字段全部转换为字符串之后合并为一个字符串，然后比较这个合并后的字符串进行排序则可，所以我们可以定义一个函数如下：

DelphiCode:

procedure   Sort(List:   TList;isArc:   boolean);  {isArc指定是升序还是降序}
var
  i,j:   integer;
  people,People2,temp:   pPeoPle;
  tempstr1,tempstr2:   string;
begin
    for   i   :=   0   to   List.Count   -   1   do
    begin
        for   j   :=   i   +   1   to   List.Count   -   1   do
        begin
            People   :=   List.Items[i];
            tempstr1   :=   people^.Name   +   '   '   +   people^.Sex   +   '   '   +   inttostr(people^.Age);
            people2   :=   List.Items[j];
            tempstr2   :=   people2^.Name   + '   '+   people2^.Sex