网上收集了一点东西

TOBJECTLIST里，有自带的排序功能

TLIST,TSTRINGLIST也有，MS是一样的

SORT里有一个参数： Compare：TListSortCompare

那我们先了解一下 TListSortCompare type

HELP原文：TListSortCompare is the type for callbacks that compare two items in a list.

即 TListSortCompare  是一个比较两个列表项的的回调类型

不知道这么翻译行不行，但意思就是返回一个值来表示LIST中两项的大小

定义：（这个传入的是两项的指针）

type TListSortCompare = function (Item1, Item2: Pointer): Integer;

Value Description

> 0 (positive) Item1 is less than Item2
   0 Item1 is equal to Item2
< 0 (negative) Item1 is greater than Item2

于是我们可以定义一个比较函数去定义自己的比较方式

function (Item1, Item2: Pointer): Integer

对于delphi初学者 不懂 item1 和 item2 是什么意思

自己的理解，这是一个对象的指针，就是TOBJECTLIST自己

好比类中套了TOBJECTLIST 那么 怎么来写这个函数呢

网上的高手很厉害，一般不会回答傻问题，可惜我们小白不懂啊！

上代码

function CompareNames(Item1, Item2: Pointer): Integer;
begin
result := Integer(CompareValue(TThingItem(Item1).indexShow,TThingItem(Item2).indexShow));
end;

CompareValue 记得U一下Math

这个函数头一回用 贴上解释吧

7、CompareValue

     function CompareValue (const A, B: Extended; Epsilon: Extended = 0): TValueRelationship; overload;
     function CompareValue (const A, B: Double; Epsilon: Double = 0): TValueRelationship; overload;
     function CompareValue (const A, B: Single; Epsilon: Single = 0): TValueRelationship; overload;
     function CompareValue (const A, B: Integer): TValueRelationship; overload;
     function CompareValue (const A, B: Int64): TValueRelationship; overload;

     uses Math

     比较两个值之间的关系

     如 A 小于 B 则返回  -1  ，如果相等则为 0 ，如果 A>B 则返回为 1；

好了，上面TThingItem是一个对象，Item1是要表示的TOBJECTLIST，至少我是这么理解的

这里的作用是比较indexshow的大小来达到从小到大的排序！

函数直接添加，无需申明

下面直接调用！排序OK

self.tolWPXM.Sort(@CompareNames);

贴段别人弄好的测试代码开始不懂，后来完全明白是什么了

unit Unit1;