Arrondi inexpliqué avec StrToFloat

Version imprimable

30/09/2013, 11h38
futneguet

Arrondi inexpliqué avec StrToFloat

Bonjour,

je veux récupérer une valeur saisie dans un TEdit que je veux stocké dans un float de la manière suivante :

Code:

float test = StrToFloat(EditMO->Text) ;

Cependant, pour certaines valeurs (ex : 2,4), test contient 2,40000000954

Comment éviter cela (il me faut impérativement un float et pas un double)

Merci
30/09/2013, 13h05
cedni

Slt

float test = RoundTo( StrToFloat(EditMO->Text) , -2 );

-2 pour deux chiffres apres la virgule
30/09/2013, 14h51
futneguet

Merci mais j'ai déjà testé RoundTo ainsi que FormatFloat mais la variable test vaut quand même 2,40000000954
30/09/2013, 15h03
cedni

int P = AnsiPos(",",EditMO->Text ) ;
Edit2->Text= Edit1->Text.Delete(P+2,9999);

donne 2,4

Tu peux aussi faire un traitement sur les chiffres derriere la virgule pour faire ton arrondi , avant le delete bien sur
30/09/2013, 15h16
futneguet

Oui mais si tu essaies de stocker le résultat dans un float, ça ne marche pas
30/09/2013, 15h26
cedni

Citation:

int P = AnsiPos(",",EditMO->Text ) ;
AnsiString S = EditMO->Text.Delete(P+2,9999);
float F = StrToFloat(S);

Qu est ce qui ne marche pas ?
30/09/2013, 15h43
futneguet

Code:

float F = StrToFloat(S);

ne marche pas car F vaut toujours 2,40000000954
30/09/2013, 15h54
cedni

expliques ce que tu veux faire , sinon on avancera pas
30/09/2013, 16h06
futneguet

Récupérer 2,4 et non 2,40000000954 dans mon float, ça parait évident !
30/09/2013, 16h25
cedni

çà j avais compris , plus globalement j entendais
30/09/2013, 16h40
futneguet

Récupérer un nombre à virgule saisi par un utilisateur puis le stocker dans un champs float d'une structure en vue d'alimenter une bdd.
30/09/2013, 16h45
cedni

Au moment d alimenter ta bdd

int P = AnsiPos(",", FloatToStr(TonFloatMalArrondi) ) ;
AnsiString S = FloatToStrF( TonFloatMalArrondi ,ffFixed ,P,1);

ou 1 est le nombre de chiffre apres la virgule
30/09/2013, 16h51
futneguet

Le problème c'est que je veux le stocker dans un float, pas dans un AnsiString.
30/09/2013, 16h53
cedni

au moment de creer ta requete d insertion , celle ci est bien ecrite en string , non ?
30/09/2013, 16h58
Pasqualini

Le problème vient du fait que le nombre 2,4 qui n'a qu'une seule décimale, s'il est écrit en base 10, en a une infinité s'il est écrit, comme les nombres en "float", en base 2. Comme il est tronqué à 24 décimales, son retour en base 10 n'est plus 2,4.

Je ne pense pas qu'il y ait une solution simple.
30/09/2013, 17h00
futneguet

non car je passe par une structure organisée comme ma table (car je me sers des données pour d'autres traitements).
Du coup, lors de l'insertion je me sers de :

Code:

qInsert->Params->ParamValues["costme"]=mastructure.costme;

mais comme costme est float (c'est la valeur récupérée), elle vaut 2,40000000954
30/09/2013, 17h48
cedni

Peux tu introduire un champ supplémentaire à ta table ?

Au cas où , tu trouves le nombre de chiffres , P , après la virgule , ce serait l entier que tu insères dans le champ ajouté .

La valeur de ton champ , tu la traites avec un ansireplace sur la virgule .

Ensuite pour retrouver ton nombre d origine , tu as juste à le diviser par 10 puissance P
30/09/2013, 17h58
futneguet

Impossible de modifier la table ni la structure.
30/09/2013, 19h37
blondelle
Salut futneguet
Je ne pense pas que tu peut recuperer directement un flotant avec une valeur ronde directement, il faut ruser
Code:

1 2 3 4 5 String a = (Edit1->Text); float b = StrToFloat(a) * 1000; // ajuster 1000 10000 ...correspondant au nombre de chiffre apres la virgule b = b/10000; Label1->Caption = b;
tu a toujours un arrondi
02/10/2013, 14h24
futneguet

Merci blondelle mais alors que pour la valeur 2,4 saisi par l'utilisateur

Code:

float b = StrToFloat(a) * 1000;

donne bien 2400,

Code:

b = b/1000;

me redonne plein de chiffre après la virgule (2,40000000954 dans mon cas)

Bizarre quand même ...
02/10/2013, 15h36
blondelle

Je pense que cela est du en interne aux valeurs binaires utilisees pour les calculs tu peut regarder du cote de " Floor " ou de " ceil "
04/10/2013, 11h06
yarp

J'ai pas mal travaillé avec les float (en 3D) et en effet les float génèrent pas mal de soucis.
Ci dessous un article sur Code Project (en Anglais) qui traite du sujet:
http://www.codeproject.com/Articles/...nt-Programming
Et la référence que donne l'auteur de l'article:
http://docs.oracle.com/cd/E19957-01/..._goldberg.html

En gros je pense qu'il n'y a pas de solution. Il faut arrondir à l'affichage.
Il y a au moins un autre article de CP qui traite su sujet. Des gens proposent des solutions de fonction qui testent l'égalité de manière fiable en passant par des fonctions maison.
04/10/2013, 11h45
futneguet

En tout cas, merci à tous de vous être penchés sur mon problème, même s'il n'y a, à priori pas de solution.
11/10/2013, 11h42
nirgal76

Non , pas de solution simple. Nous on a finit par faire notre classe de nombres réels à partir des TBcd de Systools => le nombre est stocké dans une chaîne en interne => plus de soucis de précision.

Salut nirgal76
Je ne connaissais pas TBcd, j'ai fais un essai avec un bout de code adapte du Net, mais je ne comprend pas trop les résultats obtenu

Code:

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Fmtbcd.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct TBcd
{
  Byte Precision;
  Byte SignSpecialPlaces;
  Byte Fraction[32];
};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned char cUPin[4];
Fmtbcd::TBcd bcdPin = IntegerToBcd(12345678);
Label1->Caption = BcdToStr(bcdPin);
     cUPin[0] = bcdPin.Fraction[3];
     Label2->Caption = cUPin[0];
          cUPin[1] = bcdPin.Fraction[2];
          Label3->Caption = cUPin[1];
     cUPin[2] = bcdPin.Fraction[1];
     Label4->Caption = cUPin[2];
cUPin[3] = bcdPin.Fraction[0];
Label5->Caption = cUPin[3];
}
//---------------------------------------------------------------------------

un exemple pour faire une addition de 2.3 + 0.1 et l'afficher :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #include "StBcd.hpp" [...] Stbcd::TBcd op1; Stbcd::TBcd op2; Stbcd::TBcd resultat; ValBcd_C("2.3", op1); ValBcd_C("0.1", op2); AddBcd_C(op1, op2, resultat); ShowMessage(StrGeneralBcd(resultat));
Bon après, on a fait une classe et redéfinit les opérateurs, constructeurs etc pour l'utiliser comme un type standard

11/11/2013, 04h41
Xavier

Citation:

Envoyé par futneguet

Bonjour,

je veux récupérer une valeur saisie dans un TEdit que je veux stocké dans un float de la manière suivante :

Code:

float test = StrToFloat(EditMO->Text) ;

Cependant, pour certaines valeurs (ex : 2,4), test contient 2,40000000954

Comment éviter cela (il me faut impérativement un float et pas un double)

Merci

J'ai utilisé la méthode suivante pour récupérer la vraie valeur:

Code:

double test = StrToFloat(EditMO->Text);