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 ?


@+