Aufrunden auf den nöchsten 5 oder 10er

[dominikkv]

der rundet dann aber die 5 zur 10 auf

die beste Methode ist IMHO die von Apollonius:
Zahl := Ceil(Zahl/5) * 5; Du musst allerdings noch die Unit Math in die uses aufnehmen.
Wenn du das nicht willst kannst du meine Funktion nehmen:

Delphi-Quellcode:

if (((Zahl - Trunc(Zahl)) > 0) or ((Trunc(Zahl) mod 5) > 0)) then 
  Zahl := (Trunc(Zahl) div 5 + 1) * 5;

Allerdings funktioniert die nicht mit negativen Zahlen, zB -5,3