Hi DP ,
Ich habe folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

strlBilder := TStringList.Create;
  FindFirst('*.jpg', faAnyFile, srBilder1);
  strlBilder.Add(srBilder1.Name);
  while FindNext(srBilder1) = 0 do
  begin
    strlBilder.Add(srBilder1.Name);
 // ShowMessage('');
  end;
  FindClose(srBilder1);
  strlBilder.Sorted := false;
  strlBilder.CustomSort(@CompareDate);

Quele: Post #7
Allerdings funktioniert das nicht, und es gibt mindestens eine AV.
Aber wie kann ich es sonst nach Datum in einer StringList sortieren?

Wo kommt welcher Fehler?



erstmal zum suchen der Dateien ...

Frag dich mal was dein Code macht, wenn KEIN Bild gefunden wird

zusammenfalten · markieren

Delphi-Quellcode:

strlBilder := TStringList.Create;
if FindFirst('*.jpg', faAnyFile, srBilder1) = 0 then
begin
  strlBilder.Add(srBilder1.Name);
  while FindNext(srBilder1) = 0 do
  begin
    strlBilder.Add(srBilder1.Name);
  end;
FindClose(srBilder1);
strlBilder.Sorted := false;
strlBilder.CustomSort(CompareDate);

oder

markieren

Delphi-Quellcode:

strlBilder := TStringList.Create;
if FindFirst('*.jpg', faAnyFile, srBilder1) <> 0 then
  repeat
    strlBilder.Add(srBilder1.Name);
  until FindNext(srBilder1) <> 0;
FindClose(srBilder1);
strlBilder.Sorted := false;
strlBilder.CustomSort(CompareDate);

Und dann ist in dem anderen Thread kein @ vor der Vergleichsfunktion.


Aber besser und schneller sollte es gehen, wenn du direkt beim Eintragen in die Stringliste selber sortierst.
FindFirst/FindNext liefert im SearchRec das Datum mit und über einen RecordArray, mit Datum und Name kann man da schöne Sachen machen.

z.B.:

markieren

Delphi-Quellcode:

Var strlBilder: Array of Record
    Name: String;
    Datum: irgendwas;
  End;

Hi,
ich hab den Queltext verändert:

zusammenfalten · markieren

Delphi-Quellcode:

  function CompareDate(List: TStringList; Index1, Index2: Integer):Integer;
var
  Val1, Val2: TDateTime;
  str1, str2: String;
begin
  val1:= FileDateToDateTime(FileAge(list[Index1]));
  val2:= FileDateToDateTime(FileAge(list[Index2]));
  str1:= DateTimeToStr(val1);
  str2:= DateTimeToStr(val2);
  Result := CompareText(str1, str2);
end;

Allerdings, woch ich strlBilder.CustomSort(CompareDate) aufrufe, kommt immer der Fehler Incompatible Types: 'Integer' and 'TValueRelationship'.

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

zusammenfalten · markieren

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