Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
Delphi 10.2 Tokyo Starter
|
Re: Objekte nach Datum Sortieren
14. Sep 2008, 17:32
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!
Christian
IT: Schließen Sie bitte das Fenster. User: Die Tür auch?
i++; // zaehler i um 1 erhoehen
|