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