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