|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
Re: Delphi & Runden
16. Sep 2009, 12:30
gerundetesErgebniss := (Zahl1 + (Zahl2 div 2)) div Zahl2;
Aber das Löst ja nicht das Problem hier ... vorallem nicht vei den Variants, wo intern gerundet wird.
Eventuell könnte man da die internen Funktionen der Variants hooken und dort seine eigene Roundmethode einschleusen.
$2B or not $2B
|