Сортировка TObjectList

function MyCompare(AItem, BItem: TL2Item): integer;
begin
  Result := CompareText(AItem.ItemName, BItem.ItemName);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inventory.Sort(@MyCompare);
end;

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

function MyCompare(AItem, BItem: Pointer): integer;
begin
  Result := CompareText(TL2Item(AItem).ItemName, TL2Item(BItem).ItemName);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Inventory.Sort(@MyCompare);
end;

type
  TL2Inventory = class (TObjectList<TL2Item>)

type
  TL2Item = class
    ObjectId, ItemId: Integer;
    ItemName: String;
    Count: Int64;
    BaseType: TL2ItemBaseType;
    ItemType1, ItemType2, isEquiped, EnchantLvl, AttackElement, AttackElementVal: Word;
    DefAttFire, DefAttWater, DefAttWind, DefAttEarth, DefAttHoly, DefAttUnholy: Word;
    AugumentBonus: Integer;
    procedure Init(buff: AnsiString);
    procedure SetItemBaseType;
    procedure AddToStringGrid(idx: Integer);
  end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Contnrs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
  TPointClass = class
    private
      FX, FY: Integer;
    public
      constructor Create(AX, AY: Integer);
      property X: Integer read FX write FX;
      property Y: Integer read FY write FY;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function ListCmp(Item1, Item2: Pointer): Integer;
begin
  Result := TPointClass(Item1).X - TPointClass(Item2).X;
end;
 
 
constructor TPointClass.Create(AX, AY: Integer);
begin
  FX := AX;
  FY := AY;
end;
 
procedure PrintList(AList: TObjectList; ASL: TStrings);
var P: TPointClass;
    i: Integer;
begin
  for i := 0 to AList.Count - 1 do
    if AList[i] is TPointClass then
      begin
        P := AList[i] as TPointClass;
        ASL.Add('X = ' + IntToStr(P.X) + '; Y = ' + IntToStr(P.Y));
      end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var OList: TObjectList;
begin
  OList := TObjectList.Create;
 
  OList.Add(TPointClass.Create(1, 7));
  OList.Add(TPointClass.Create(2, 1));
  OList.Add(TPointClass.Create(5, 4));
  OList.Add(TPointClass.Create(0, -5));
 
  PrintList(OList, Memo1.Lines);
 
  Memo1.Lines.Add('');
 
  OList.Sort(@ListCmp);
 
  PrintList(OList, Memo1.Lines);
 
  OList.Free;
 
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Generics.Collections, Generics.Defaults;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
  TPointClass = class
    private
      FX, FY: Integer;
    public
      constructor Create(AX, AY: Integer);
      property X: Integer read FX write FX;
      property Y: Integer read FY write FY;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function ListCmp(const Item1, Item2: TPointClass): Integer;
begin
  Result := Item1.X - Item2.X;
end;
 
constructor TPointClass.Create(AX, AY: Integer);
begin
  FX := AX;
  FY := AY;
end;
 
procedure PrintList(AList: TList<TPointClass>; ASL: TStrings);
var P: TPointClass;
    i: Integer;
begin
  for i := 0 to AList.Count - 1 do
    begin
      P := AList[i] as TPointClass;
      ASL.Add('X = ' + IntToStr(P.X) + '; Y = ' + IntToStr(P.Y));
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var OList: TList<TPointClass>;
begin
  OList := TList<TPointClass>.Create(TComparer<TPointClass>.Construct(ListCmp));
 
  OList.Add(TPointClass.Create(1, 7));
  OList.Add(TPointClass.Create(2, 1));
  OList.Add(TPointClass.Create(5, 4));
  OList.Add(TPointClass.Create(0, -5));
 
  PrintList(OList, Memo1.Lines);
 
  Memo1.Lines.Add('');
 
  OList.Sort;
 
  PrintList(OList, Memo1.Lines);
 
  OList.Free;
end;
 
end.

uses .. Generics.Defaults ..;
..
Inventory.Sort(
  TDelegatedComparer<TL2Item>.Create(
    function(const Left, Right: TL2Item): Integer
    begin
      Result := CompareText(Left.ItemName, Right.ItemName);
    end)
  );