So also folgende Funktion liefert mir erstmal alle Dateien eines Ordners, das klappt soweit...
Delphi-Quellcode:
function allFiles(Verzeichnis, Endung: string): TStringList;
var
SR : TSearchRec;
begin
result:= TStringList.Create;
if Verzeichnis[length(Verzeichnis)]<>'\' then
Verzeichnis:=Verzeichnis+'\';
if FindFirst(Verzeichnis+Endung,$3F,SR)=0 then begin
repeat
if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
result.Add(SR.Name);
until FindNext(SR)<>0;
FindClose(SR);
end;
end;
...aber wie nun nach Zeit sortieren?