Hmm,
Wenn ich am Ende das komplette Result einfach negiere dürfte das doch den gleichen Effekt haben.
Hinzu kommt, dass weder ASC noch DESC funktioniert, denn ASC sortiert die Zahlen auch so :
1
100
101
11
Edit: Ups ja das muss in DESC so geändert werden, oder:
Delphi-Quellcode:
if Result <> 0 then
begin
if d1 < d2 then
Result := 1
else if d1 > d2 then
Result := -1
else
Result := 0;
end
Ist aber noch nicht die Lösung des Problems wie gesagt