TList的Sort使用方法

关注

原创最新推荐文章于 2026-06-29 09:15:44 发布 5.9k 阅读 AI 写同款· GEO 优化 ›

永磁同步电机定子槽型设计实战：从梨形槽到矩形槽的NVH优化之路本文深入探讨了永磁同步电机定子槽型设计在NVH优化中的关键作用，对比了梨形槽与矩形槽的性能差异。通过Ansys Maxwell仿真和实际案例，揭示了矩形槽在提升槽满率、降低电磁噪声方面的优势，并总结了五大设计黄金法则，为电机设计工程师提供了实用指导。阅读详情

有网友提问，做一Demo，以作记录。

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.