ich habe eine Stringliste, in der verschiedene dateinamen stehen, die ich mit Findfirst und Findnext eingelesen habe.
Nun möchte ich die Dateien in dieser Stringliste nach ihrem Erstellungsdatum sortieren und da scheitere ich ein wenig.
Aufruf der Funktion sieht so aus:
Delphi-Quellcode:
for k:= 0 to liste.Count-1 do
ShowMEssage('vor sortierung: '+liste[k]);
Liste.CustomSort(CompareDate);
for k:= 0 to liste.Count-1 do
ShowMEssage('nach sortierung: '+liste[k]);
Die Funktion selber so:
Delphi-Quellcode:
function CompareDate(List: TStringList; Index1, Index2: Integer): Integer;
var
Val1, Val2: TDateTime;
begin
val1:= FileDateToDateTime(FileAge(list[Index1]));
val2:= FileDateToDateTime(FileAge(list[Index2]));
Result := CompareDateTime(Val1, Val2);
end;
Das Problem ist nun aber, er geht gar nicht in die Funktion rein. Irgendjemand eine Idee warum nicht.