unit tanonfunc;

{$mode objfpc}

interface

uses
  Generics.Collections;

type
  TBuilderEntry = record
    Name: String;
  end;

  TBuildHistoryEntry = record
  end;

procedure SortByDate(aAscending: Boolean);

implementation

uses
  Generics.Defaults;

procedure SortByDate(aAscending: Boolean);
begin
  specialize TComparer<TBuilderHistoryEntry>.Construct(function(const aLeft, aRight: TBuilderEntry): Integer
    begin
      if aLeft.Name > aRight.Name then
        Result := 1
      else if aLeft.Name < aRight.Name then
        Result := -1
      else
        Result := 0;

      if aAscending then
        Result := - Result;
    end);
end;

end.