TStringList absteigend sortieren

[XxnemesisxX49]

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;

[shmia]

Probier's aus!

[XxnemesisxX49]

Ich glaube, das ist eine der letzten Fragen

Sortiere ich dann mit liste.CustomSort(StringListSortCompare) oder etwas ähnlichem?
...bestimmt falsch..

[BUG]

Zitat von XxnemesisxX49:

Sortiere ich dann mit liste.CustomSort(StringListSortCompare) oder etwas ähnlichem?
...bestimmt falsch..

Wieso so pessimistisch? Probiere es aus oder gucke in die Hilfe

[XxnemesisxX49]

Juhu, es klappt, ich könnte tanzen

Danke euch allen, für euer Durchhaltevermögen und, dass ihr so nem Deppen wie mir, der für jede Kleinigkeit Hilfe braucht, geholfen habt

[XxnemesisxX49]

Zitat von BUG:

Zitat von XxnemesisxX49:

Sortiere ich dann mit liste.CustomSort(StringListSortCompare) oder etwas ähnlichem?
...bestimmt falsch..

Wieso so pessimistisch? Probiere es aus oder gucke in die Hilfe

Da sollte eigentlich noch ein hin.
Wie so ein fehlender Smiley die Bedeutung ändern kann, ist echt erstaunlich