Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
18. Aug 2022
Ich habe mich total verguckt ich hätte nach Datum sortieren sollen nicht nach Name. Hat sich erledigt sorry.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
18. Aug 2022
Ich habe das jetzt mal so übernommen, aber sind die Sort-Parameter coStringSort und coDigitAsNumbers richtig?
function NaturalCompareText(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := string.Compare(List, List, );
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
18. Aug 2022
Ich habe eine StringList und lese mit FindFirst/FindNext Dateien nicht-rekursiv eines Verzeichnisses aus.
Die Dateinamen in der Liste sind anders als die im Windows-Explorer nicht sortiert. Sorted und Sort der StringList bringt nix.
Dateinamen 1 bis 15 ergibt mit Sorted und Sort dann sowas wie 1, 10, 11..15, 2, 3 usw.
Meine Idee jetzt
function StrCmpLogicalW(const psz1, psz2:...