Einzelnen Beitrag anzeigen

XxnemesisxX49

Registriert seit: 4. Sep 2012
14 Beiträge
 
#1

TStringList absteigend sortieren

  Alt 4. Sep 2012, 22:59
Delphi-Version: 7
Guten Abend zusammen,

ich habe nun schon sämtliche Foren durchkämmt, doch finde keine Lösung für mein Problem.
Ich möchte Werte in einer TStringlist absteigend sortieren. Bisher habe ich es mit dem Code unten versucht, jedoch werden die Werte wie folgt sortiert:
22
20000
200
20
Code:
function StringListSortCompare(List: TStringList; Index1, Index2: integer): integer;
begin
  if List.CaseSensitive
    then Result := AnsiCompareStr(List[Index2], List[Index1])
    else Result := AnsiCompareText(List[Index2], List[Index1]);
end;
Ich hätte sie aber gerne so sortiert:
20000
200
22
20

Ich hoffe ihr könnt mir weiterhelfen und schon mal vielen Dank im Voraus

Geändert von XxnemesisxX49 ( 5. Sep 2012 um 16:08 Uhr)
  Mit Zitat antworten Zitat