problème avec RoundTo (Delphi Xe3)

Bonjour,

J'ai le problème suivant. Pour le petit bout de code suivant :

SetRoundMode(rmUp);
a := roundto(10.02,-1):

Avec Delphi 7, j'obtiens : 10.1
Avec Delphi XE3, j'ai : 10.0

Dans les aides respectives de Delphi 7 et Xe3, j'ai vu qu'ils avaient procédé à des modifications de la fonction "RoundTo", mais je n'ai remarqué concernant l'affectation "rmUp" à "SetRoundMode".

Si je peux bénéficier des lumières de quelqu'un ...

On a eu un gros sujet sur RoundTo : roundto simperoundto currency arrondi incorrect

Et ils ont changé le calcul d'arrondi en intégrant FastCode comme je le mentionne dans le sujet Utilisation de l'arrondi sur un calcul

le code a tellement changé que RoundTo appel SetRoundMode et force rmNearest et donc ignore ton rmUp, voir si SimpleRoundTo le gère mieux !

Tu peux aussi si tu as le code de Math.pas de D7 et de XE3 (Version Pro+), et faire une RoundToOld

Ok. J'irai faire un tour demain sur liens que tu m'as donnés.
Y a-t-il déjà un topic recensant de telles différences entre des fonctions sous XE3 et Delphi 7?

Bonjour,

si ce problème de compatibilité se limite à ce problème d'arrondi, tu peux utiliser des fonctions plus basiques qui sont sûres de fonctionner avec D7 et XE3 :

Code:

---

1 2 3 4 5 6

// arrondi à 0,1 par excés a := Trunc(10 * 10.02 +1 )/10; // ==> 10,1 Showmessage(FloatToStr(a)); // arrondi à 0,1 par défaut a := Trunc(10 * 10.02 )/10; // ==> 10,0 Showmessage(FloatToStr(a));

---

A+

Charly

Citation:

---

Envoyé par Charly910

Bonjour,

si ce problème de compatibilité se limite à ce problème d'arrondi, tu peux utiliser des fonctions plus basiques qui sont sûres de fonctionner avec D7 et XE3 :

---

et pour 20 tout rond par excès ?

Code:

---

1 2 3

// arrondi à 0,1 par excés a := Trunc(10 * 20.00 +1 )/10; // ==> 20,1 Showmessage(FloatToStr(a));

---

c'est un sacré excès ;)

Bonjour,

effectivement, alors il faut bidouiller avec la fonction Round :

Code:

---

a := Round(10 * b + 0.5 )/10;

---

pas très propre !

A+

Charly

Ok merci, comme j'avais besoin d'un arrondi au supérieur, j'ai utilisé un

Ceil(10*a)/10