ok, hab ich.
Das kommt dann einfach in meine
Unit oder?
Delphi-Quellcode:
// Anwendungsbeispiel zum "natürlichen" Sortieren
function StringListSortCompare(List: TStrings; Index1, Index2: integer): integer;
begin
// Index1 und Index2 sind vertauscht -> absteigend sortieren
if List.CaseSensitive
then Result := NaturalCompareStr(List[Index2], List[Index1])
else Result := NaturalCompareText(List[Index2], List[Index1]);
end;