Zitat von
xZise:
Problem: Faktor ist ein Extended
Du kannst/musst die Variable Faktor zuvor einmal runden:
Delphi-Quellcode:
var
wert, ifaktor : integer;
faktor : extended;
begin
wert := 1000;
faktor := 7.0;
ifaktor := round(faktor);
wert := ((wert+(faktor div 2)) div faktor) * faktor;
end;