Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: gerundete Zahlen werden nicht weiterverarbeitet
10. Okt 2012, 22:49
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;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (10. Okt 2012 um 22:51 Uhr)
|