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.

巴特西

DELPHI7中 TObjectList sort排序问题

最新文章

热门文章