Utilisation de SetRoundMode et de RoundTo

**ero-sennin** · 14/11/2008, 14h45

Bonjour,

Tout d'abord, je tiens à préciser que je travaille sous D2009.
Je suis entrain de faire un petit composant et j'aimerai arrondir "mon float" soit par excès, soit par défaut, soit ne rien faire du tout, juste faire un tronquage.

J'ai vu que l'on pouvait utiliser la fonction SetRoundMode avec les valeurs ci dessous :

Envoyé par Aide

Valeur Signification
rmNearest Arrondit à la valeur la plus proche.
rmDown Arrondit vers moins l'infini.
rmUp Arrondit vers plus l'infini.
rmTruncate Tronque la valeur, en arrondissant les valeurs positives vers le bas et les valeurs négatives vers le haut.

Soit je ne comprends pas ce que signifie ce qu'est arrondir vers l'infini, soit ça ne fonctionne pas...
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
SetRoundMode(rmDown);
  ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.25
  SetRoundMode(rmUp);
  ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.26
  SetRoundMode(rmNearest);
  ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.26
  SetRoundMode(rmTruncate);
  ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.25

Je ne sais pas ce que vous en pensez

Merci
Ero-Sennin

**Andnotor** · 14/11/2008, 22h26

Cela ne va pas te dépanner mais un copier/coller de ton code me donne bien les résultats que tu attends

. (D2007)

Peut-être une directive de compilation ?..

**e-ric** · 14/11/2008, 22h45

Salut

Afin d'éclairer ta lanterne voici un exemple plus précis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    lw: TListView;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses
  Math;
 
{$R *.dfm}
 
function ArrondiParDefaut( Value: Double; Prec: Integer): Double;
var
  rmSave: TFPURoundingMode;
begin
  rmSave := GetRoundMode;
  try
    SetRoundMode(rmDown);
    Result := RoundTo(Value, Prec);
  finally
    SetRoundMode(rmSave);
  end;
End;
 
function ArrondiParExces( Value: Double; Prec: Integer): Double;
var
  rmSave: TFPURoundingMode;
begin
  rmSave := GetRoundMode;
  try
    SetRoundMode(rmUp);
    Result := RoundTo(Value, Prec);
  finally
    SetRoundMode(rmSave);
  end;
End;
 
function ArrondiParTronquage( Value: Double; Prec: Integer): Double;
var
  rmSave: TFPURoundingMode;
begin
  rmSave := GetRoundMode;
  try
    SetRoundMode(rmTruncate);
    Result := RoundTo(Value, Prec);
  finally
    SetRoundMode(rmSave);
  end;
End;
 
function ArrondiPlusProche( Value: Double; Prec: Integer): Double;
var
  rmSave: TFPURoundingMode;
begin
  rmSave := GetRoundMode;
  try
    SetRoundMode(rmTruncate);
    Result := RoundTo(Value, Prec);
  finally
    SetRoundMode(rmSave);
  end;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  tab: array[0..3] of Double = (-25.255,-25.250,25.250,25.255);
var
  I: integer;
begin
  for I := Low(tab) to High(tab) do
  begin
    with lw.Items.Add do
    begin
      Caption := Format('%g', [tab[I]]);
      SubItems.Add(Format('%g', [ArrondiParExces(tab[I],-2)]));
      SubItems.Add(Format('%g', [ArrondiParDefaut(tab[I],-2)]));
      SubItems.Add(Format('%g', [ArrondiPlusProche(tab[I],-2)]));
      SubItems.Add(Format('%g', [ArrondiParTronquage(tab[I],-2)]));
    end;
  end;
End;
 
end.

et pour le dfm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
object Form1: TForm1
  Left = 493
  Top = 188
  Width = 458
  Height = 297
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 32
    Top = 20
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object lw: TListView
    Left = 28
    Top = 52
    Width = 409
    Height = 150
    Columns = <
      item
        Caption = 'Value'
      end
      item
        Caption = 'rmUp'
      end
      item
        Caption = 'rmDown'
      end
      item
        Caption = 'rmNearest'
      end
      item
        Caption = 'rmTruncate'
      end>
    TabOrder = 1
    ViewStyle = vsReport
  end
end

Le sens de l'infini te donne seulement le sens vers lequel l'arrondi est réalisé connaissant la précision (-2 signifie 2 décimales), -∞ signifie que l'on arrondit à la valeur immédiatement inférieure (arrondi par défaut), +∞ vers la valeur immédiatement supérieure (arrondi par excès).

Il faut bien comprendre que les modes d'arrondi rmUp et rmDown sont des implémentations directes de la fonction mathématique partie entière E(X) (révise des cours de maths de terminale si nécessaire).

Rem : Le mode d 'arrondi est restauré en fin de chaque routine car je fais la supposition que ce mode est global et permanent.

Cdlt

**ero-sennin** · 14/11/2008, 23h35

Envoyé par Andnotor

Cela ne va pas te dépanner mais un copier/coller de ton code me donne bien les résultats que tu attends

. (D2007)

Peut-être une directive de compilation ?..

Très étrange! Moi j'ai que 12.26 qui sort

**CapJack** · 15/11/2008, 02h14

Bizarre, effectivement. Un bug de Delphi 2009 ?

**tourlourou** · 15/11/2008, 10h28

obtiens-tu également 4 fois 12,26 en passant la valeur à arrondir par variable ?

**ero-sennin** · 15/11/2008, 16h08

Envoyé par CapJack

Bizarre, effectivement. Un bug de Delphi 2009 ?

Après revérification ce matin, toujours la même chose. J'ai fait un nouveau projet en mettant dans les uses, l'unité Math puis, un Button sur ma Form qui effectue ce code :

Code :

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

1
2
3
4
5
6
7
8
SetRoundMode(rmDown);
ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.25
SetRoundMode(rmUp);
ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.26
SetRoundMode(rmNearest);
ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.26
SetRoundMode(rmTruncate);
ShowMessage(FloatToStr(RoundTo(12.255,-2))); // Devrait donner 12.25

Envoyé par tourlourou

obtiens-tu également 4 fois 12,26 en passant la valeur à arrondir par variable ?

Que veux-tu dire par "Passer la valeur à arrondir par variable" ?

**SergioMaster** · 16/11/2008, 08h20

Salut ,

Envoyé par ero-sennin

Que veux-tu dire par "Passer la valeur à arrondir par variable" ?

je pense qu'il veut dire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var i : .......; 
 
i:=12.255;
SetRoundMode(rmDown);
ShowMessage(FloatToStr(RoundTo(i,-2))); // Devrait donner 12.25
SetRoundMode(rmUp);
ShowMessage(FloatToStr(RoundTo(i,-2))); // Devrait donner 12.26
SetRoundMode(rmNearest);
ShowMessage(FloatToStr(RoundTo(i,-2))); // Devrait donner 12.26
SetRoundMode(rmTruncate);
ShowMessage(FloatToStr(RoundTo(i,-2))); // Devrait donner 12.25

**tourlourou** · 16/11/2008, 10h17

c'est bien ça !

2° question : peux-tu en mode débugage faire le suivi en pas-à-pas et vérifier le mode d'arrondi dans RoundTo ?

**ero-sennin** · 16/11/2008, 12h28

Salut,

Je viens d'effectuer le test en passant la valeur par variable, et rien n'y fait.
Pas contre, je ne peux pas voir le mode d'arrondi dans RoundTo

**CapJack** · 16/11/2008, 14h55

Une petite recherche sur le net m'a convaincu qu'il y avait bien un problème.

http://dn.codegear.com/search?q=Roun...s=y&allwords=y

Et encore, toi tu as de la chance, il y en a qui trouveraient 12,54.

Apparemment ça dépend du type de processeur, si j'ai bien tout compris.

Tu as fais les mises à jour de Delphi ?

**ero-sennin** · 16/11/2008, 22h52

Bonsoir CapJack,

Envoyé par CapJack

Une petite recherche sur le net m'a convaincu qu'il y avait bien un problème.

http://dn.codegear.com/search?q=Roun...s=y&allwords=y

Et encore, toi tu as de la chance, il y en a qui trouveraient 12,54.

Apparemment ça dépend du type de processeur, si j'ai bien tout compris.

Tu as fais les mises à jour de Delphi ?

Effectivement, je n'avais pas pensé à regarder de ce coté.
D'après ce que j'ai pu lire, ça ne date pas d'hier ce bug! Il était déjà présent sous D7 ...
Je pense que je vais me faire ma propre fonction de "troncage".
Pour info, j'ai un P4 HT ... et j'avais déjà fais une mise à jour. J'ai regardé si il y en avait une nouvelle, mais non! Tant pis

Merci bien pour votre aide

Utilisation de SetRoundMode et de RoundTo

Langage Delphi

Discussions similaires

Partager

Partager