Array sortieren

[Uwe Raabe]

Delphi-Quellcode:

uses
  System.Generics.Collections, System.Generics.Defaults, System.DateUtils;

type
  TRec = record
    Datum: TDateTime;
    Kunde: string;
    Nummer: Integer;
  end;

  TRecArray = TArray<TRec>;

procedure SortByDate(var RecArray: TRecArray);
begin
  TArray.Sort<TRec>(RecArray,
    TDelegatedComparer<TRec>.Create(
      function(const Left, Right: TRec): Integer
      begin
        result := CompareDateTime(Left.Datum, Right.Datum);
      end));
end;