Zitat von
freak4fun:
Delphi-Quellcode:
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;
Genau eine solche Funktion ist es, welche du direkt der TObjekList in der SortMethode als Pointer übergeben kannst...
meinKalender.Liste.Sort(@CompareDate);
Damit nutzt du nicht den langsamen Bubblesort und deine Exchange Methode kannst du dir auch sparen, da die eh überflüssig ist, denn du musst nicht das Objekt clonen sondern lediglich deren Platz in der ObjektListe vertauschen.