Mist, hab' mir Mühe gegeben und war trotzdem zu langsam
Delphi-Quellcode:
function RoundTo10(d : Double): Integer;
begin
Result := Round(d / 10 +1) *10;
end;
(hmmm, ich lasse mal meine Ursprungsversion, die scheint doch richtig zu funktionieren...)
div eignet sich nicht für Fließkommazahlen