Ich hab die Sortierfunktion jetzt bei mir auch im Einsatz. Aber um etwas ergänzt, damit sie auch diese Einträge sortieren kann:
Nach
Delphi-Quellcode:
if n1 > n2 then
begin
result :=1;
exit
end
else if n1 < n2 then
begin
result :=-1;
exit;
end
hab ich noch das eingefügt:
Delphi-Quellcode:
else
begin
Dec(c1);
Dec(c2);
end;