DELPHI7中 TObjectList sort排序问题

网上收集了一点东西

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;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Math;

 

type

  P_MissInfo = ^MissInfo;

  MissInfo = record

    Missqty: integer;

    MissRate: Double;

  end;

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function CompareNames(Item1, Item2: Pointer): Integer;

begin

  result := Integer(CompareValue(P_MissInfo(Item1).MissRate, P_MissInfo(Item2).MissRate));

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  list: Tlist;

  PMissInfo: P_MissInfo;

begin

  list := Tlist.create;

  New(PMissInfo);

  PMissInfo.Missqty:= 10;

  PMissInfo.MissRate:= 12.56;

  list.Add(PMissInfo);

 

  New(PMissInfo);

  PMissInfo.Missqty:= 12;

  PMissInfo.MissRate:= 12.8;

  list.Add(PMissInfo);

 

  New(PMissInfo);

  PMissInfo.Missqty:= 9;

  PMissInfo.MissRate:= 11.56;

  list.Add(PMissInfo);

 

  list.Sort(@CompareNames);

  Showmessage(IntToStr(list.Count));

  showmessage(FloatToStr(P_MissInfo(list.Items[0]).MissRate));

  showmessage(FloatToStr(P_MissInfo(list.Items[1]).MissRate));

  showmessage(FloatToStr(P_MissInfo(list.Items[2]).MissRate));

end;

 

end.