Objekte nach Datum Sortieren

[freak4fun]

Bäume und Wald und so.

Delphi-Quellcode:

procedure TTerminKalender.Sort(AList: TStrings);

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

var
  i, j: Integer;
begin
  for i := 0 to FTerminListe.Count - 2 do
    for j := i + 1 to FTerminListe.Count - 1 do
      if CompareDate(TTermin(FTerminListe.Items[i]), TTermin(FTerminListe.Items[j])) = 1 then
        FTerminListe.Exchange(i, j);
end;

Danke für die Gedult und Mühe.