Wo kommt welcher Fehler?
erstmal zum suchen der Dateien ...
Frag dich mal was dein Code macht, wenn KEIN Bild gefunden wird
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
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.:
Delphi-Quellcode:
Var strlBilder: Array of Record
Name: String;
Datum: irgendwas;
End;