ObjectList nach Datum sortieren

[marabu]

So wie dokumentiert:

Delphi-Quellcode:

function CompareDate(Item1, Item2: Pointer): Integer;
var
  Val1, Val2: TDateTime;
begin
  val1 := TCalcFormValue(Item1).Date;
  val2 := TCalcFormValue(Item1).Date;
  Result := DateUtils.CompareDate(Val1, Val2);
end;