Customsort - sortieren nach datum

[marabu]

Hallo,

du kopierst dir einfach das Beispiel aus der Delphi Online Hilfe zu TListView.CustomSort und schaust mal ob in der Unit DateUtils nicht schon eine Compare-Funktion für dich und TDateTime drin ist.

Delphi-Quellcode:

uses
  DateUtils;

function CompareItems(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
var
  dt1, dt2: TDateTime;
begin
  dt1 := FileDateToDateTime(FileAge(Item1.Caption));
  dt2 := FileDateToDateTime(FileAge(Item2.Caption));
  Result := CompareDateTime(dt1,dt2);
end;

begin
  ListView.CustomSort(@CompareItems, 0);
end;

Grüße vom marabu