Zitat von
marabu:
Zahlen behandelt die Sortierfunktion in der gezeigten Form wie Zeichenketten - dass heißt 100 kommt vor 90, aber 20 kommt nach 10. Eine absteigende Sortierung kann ich mir da schwerlich vorstellen.
Falls nur Zahlen vorkommen könnte man auch so eine Quick & Dirty Lösung verwenden.
Delphi-Quellcode:
function MyCompareStr(s1, s2: string):Integer;
begin
// Bedingung Rückgabewert
// S1 > S2 > 0
// S1 < S2 < 0
// S1 = S2 = 0
try
if StrToInt(s1) > StrToInt(s2) then Result := 1
else if StrToInt(s1) < StrToInt(s2) then Result := -1
else Result := 0;
except
Result := AnsiCompareStr(s1, s2);
end:
end;