Sortier-Problem (Quicksort)

[Uwe Raabe]

Ich weiß nicht, ob es in D2010 auch schon geht, aber in XE kann man das alles auch so lösen:

Delphi-Quellcode:

uses
  Generics.Collections, Generics.Defaults, DateUtils;

var
  Liste: TArray<PBusEintrag>;
begin
  ...
  TArray.Sort<PBusEintrag>(Liste, TDelegatedComparer<PBusEintrag>.Create(
    function(const Left, Right: PBusEintrag): Integer
    begin
      result := CompareTime(Left, Right);
    end
  ));
  ... 
end;