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! 8-)

[XxnemesisxX49]

Ich glaube, das ist eine der letzten Fragen :D

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

[BUG]

Zitat:

Zitat von XxnemesisxX49 (Beitrag 1181721)

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

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

[XxnemesisxX49]

Juhu, es klappt, ich könnte tanzen :D

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 :mrgreen:

[XxnemesisxX49]

Zitat:

Zitat von BUG (Beitrag 1181722)

Zitat:

Zitat von XxnemesisxX49 (Beitrag 1181721)

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

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

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