Wert zu einem Faktor hin runden

[shmia]

Wenn du komplett bei Integer-Arithmetik bleiben möchtest:

Delphi-Quellcode:

var
   wert, faktor : integer;
begin
   wert := 1000;
   faktor := 7;
   wert := ((wert+(faktor div 2)) div faktor) * faktor;
end;