gerundete Zahlen werden nicht weiterverarbeitet

[Bummi]

Delphi-Quellcode:

r2:Integer

r2:=Round(100 * x / y);
IF R2 =49 THEN BEGIN Faktor1:=2.168 END;
IF R2 =50 THEN BEGIN Faktor1:=2.1861 END;
IF R2 =51 THEN BEGIN Faktor1:=2.2041 END;


//oder
Case R2 of
   49:Faktor:=2.168;
   50:Faktor:=2.1861;
// etc. 
end;