Nach Datum Sortieren

[Hawkeye219]

Es ist nur ein Anfang, die Extras (Fehlerbehandlung, rekursive Suche, Speichern der Pfade,...) darfst du selbst übernehmen.

Delphi-Quellcode:

function SortByDate (aList: TStringList;  aIndex1, aIndex2: Integer): Integer;
begin
  Result := Integer(aList.Objects[aIndex1]) - Integer(aList.Objects[aIndex2]);
end;

procedure GetSortedFileList (const aMask: string;  aList: TStrings);
var
  code: Integer;
  SR: TSearchRec;
  L: TStringList;
begin
  L := TStringList.Create;
  try
    L.Sorted := False;
    L.BeginUpdate;
    code := FindFirst(aMask, faAnyFile, SR);
    while (code = 0) do
      begin
        L.AddObject(SR.Name, TObject(SR.Time));
        code := FindNext(SR);
      end;
    FindClose (SR);
    L.CustomSort (SortByDate);
    L.EndUpdate;
    aList.Assign (L);
  finally
    L.Free;
  end;
end;

Gruß Hawkeye