Objekte nach Datum Sortieren

[freak4fun]

Delphi-Quellcode:

procedure TTerminKalender.Sort(AList: TStrings);

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

begin
  FTerminListe.Sort(@CompareDate);
end;

@DeddyH & Jelly: Danke!