zuletzt geänderte Datei finden

[Tim Henford]

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?