Objekte nach Datum Sortieren

[Jelly]

Zitat:

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...

Delphi-Quellcode:

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.

[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! :mrgreen:

[DeddyH]

Ich dachte, das wäre in meinem Beispiel deutlich geworden :|

[omata]

Genau die Lösung habe ich ja schon ganz am Anfang geschrieben und gezeigt. Schön das du hier nicht jeden ignorierst, so erhälst du ja doch noch irgendwann mal eine brauchbare Lösung...

[freak4fun]

Zitat:

Zitat von omata

Genau die Lösung habe ich ja schon ganz am Anfang geschrieben und gezeigt. Schön das du hier nicht jeden ignorierst, so erhälst du ja doch noch irgendwann mal eine brauchbare Lösung...

Habe ich übersehen! :pale: So wie einiges andere hier. :stupid: Sorry! :oops: