Discussion :

[patoche.05]

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 ...

[ShaiLeTroll]

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

[patoche.05]

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?

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guillemouze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Charly910]

Bonjour,

effectivement, alors il faut bidouiller avec la fonction Round :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pas très propre !

A+

Charly

[patoche.05]

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

Ceil(10*a)/10