Discussion :

[User]

Bonjour à tous !

Mon problème est assez clair:

j'ai une cellule d'1 StringGrid qui contient '1,20'

or je souhaite sur OnDrawCell tester la valeur de cette cellule pour éventuellement la mettre la cellule en rouge si sa valeur depasse 1 certain seuil.


Donc je fais:

Code :

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

Valeur:= StrToFloat(Cells[ACol,ARow]) ;

et alors j'ai valeur=1.2000000000124548

au lieu de valeur=1.20

et donc

Code :

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

1
2
  if (Valeur>1.20) Then
          Brush.Color := clRed;

ma cellule passe en rouge alors quel ne devrait pas


Avez vous une idée au niveau de:

Code :

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

Valeur:= StrToFloat(Cells[ACol,ARow]) ;

Merci à vous,

@+

[TicTacToe]

Le problème est classique un nombre flottant n'est pas une valeur exacte.

pour tester l'égalité d'un nombre flottant, il faut introduire un "delta"
du style pour comparer 2 flottant a et b

Code :

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

1
2
3
4
5
6
if abs( a - b ) <= delta
  then showmessage( 'les 2 valeurs sont égales' )
else 
  if abs( a - b ) > delta
    then showmessage( 'a est plus grand que b' )
    else showmessage( 'b est plus grand que a' )

[Faucon]

valeur=1.2000000000124548

Vous pouvez aussi utiliser cette méthode...

Nombre:=INT(valeur*100)/100
Ce qui donne 1.20

[TicTacToe]

valeur=1.2000000000124548

Vous pouvez aussi utiliser cette méthode...

Nombre:=INT(valeur*100)/100
Ce qui donne 1.20

je crois pas que cela change grand chose (et meme si ca marche sur ce cas precis, il pourrait ne pas marcher dans d'autres cas).

Ceci arrondi ton nombre a 2 Décimales, mais au finale est restocké dans un flottant non ?
-> le problème subsiste, et il est fort probable que ce ne soit pas "pile" 1.2 qui est stocké.

[ShaiLeTroll]

Valeur est un Single ? Double ? Extended ...

Si tu peux n'avoir que 4 digits, utilise le Currency qui est un type réel avec un décalage de la virgule est ultra précis pour 4 digits ...

Nombre:=INT(valeur*100)/100
il existe RoundTo aussi (à partir de D6, je crois)

[User]

TicTacToe,

dans ton cas:

Code :

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

1
2
if abs( a - b ) > delta
    then showmessage( 'a est plus grand que b' )

mais si on as:

if abs( 1.00 - 1.20 ) > 0.0001
then showmessage( '1.00 est plus petit que 1.20' )


Quand dis tu ?


@+

[User]

merci à tous,

ShaiLeTroll,

Valeur est du type single..

[User]

J'ai utilisé currency, pour le moment ca a l'air de marcher...

@+

[ShaiLeTroll]

Tout s'explique !
le Single est très mauvais pour les arrondis ... passe en Double, normalement ça devrait être mieux, tu peux passer en Extended aussi mais cela peut être plus lent (ça dépend vraiement du processeur, ... il y a eu un débat une fois sur un forum ici ou phidels, sur la Gestion du flottant IEEE 754 sur les proc x86...)

[User]

ShaiLeTroll, Tu dis que ca depend du processeur,

donc si j'installe mon appli sur un autre poste je ne suis pas garanti d'avoir le bon résultat même avec currency ou double ?

[ShaiLeTroll]

Ce qui dépend tu processeur c'est la différence de temps entre l'utilisation entre un Single Double ou Extended ... pas comment les résultats qu'ils donnent car l'on reste en x86 compatible ...

T'inquiète pas, si tu dois gérer des Euros, utilise Currency, c'est un type Delphi sur 64bit, qui sera partout pareil ...

Pour le Double, c'est si tu dois faire plus 4 chiffres après la virgule, cela devrait être partout pareil, je pense vu que c'est la norme IEEE 754 qui est utilisé pour tous les processeurs, c'est le type le plus utilisé (par défaut pour la Base de Données), tu peux considérer que 10 chiffres après la virgule sont bon, après ...

Ensuite, si c'est pour calculer Pi, faire une recherche sur le forum, on a évoqué les chiffres à virgule réparti en tableau de int ...

[User]

Il s'agit de mesures médicales au format genre 00.00 ou 0.00 donc je vais garder le currency...

Merci à toi je tag résolu,

[Fabrice ROUXEL 1]

Extended ou Currency.

[Faucon]

Je sais que c'est résolu mais je rectifie une erreur que j'ai commise.

Nombre:=INT(valeur*100)/100 (c'est faux)
Nombre:=INT(valeur*100+0.5)/100 (c'est correct)

Mille excuses.