Discussion :

[parhelie]

Bonsoir à tous,
J'ai écrit une appli il y a bien longtemps, maintenant, sous delphi7 qui m'est bien utile.
Je ne sais pas pourquoi, mais un bug, exceptionnel au départ, est devenu infranchissable.
Il s'agit de ce NaN, qui ne bloque pas le déroulement du programme mais donne des résultats inutilisables.
Est-il possible de traquer cette erreur? Comment? OnError? Try/Finally?
Sans doute, ça a été traité dans ce forum, mais je n'ai pas su le trouver.
Merci pour votre aide,

[Whiler]

Salut,

Ce message manque cruellement de détails pour qu'on puisse t'aider...

Si tu lances ton application depuis Delphi (F9), arrives-tu à déclencher l'erreur ?
Sais-tu dans quelle méthode cela se produit ? Arrives-tu à le reproduire systématiquement ? As-tu du code où tu aurais un doute ? ...

[DOLPat®]

Bonjour

NaN signifie Not a Number et est provoqué par une division par zéro d'une fonction mathématique.
Tu peux vérifier la validité d'un nombre par la fonction IsNan de l'unité Math.

[parhelie]

Si tu lances ton application depuis Delphi (F9), arrives-tu à déclencher l'erreur ?

Justement, ça ne déclenche pas d'erreur: mon prog. écrit le résultat d'un Km de calculs dans un fichier texte, et au lieu de valeurs, j'y trouve des quelques fois des Nan (ou -Nan)! ex:

....
336.940 Nan acut
355.657 Nan acut
374.376 Nan acut
373.892 1.303 acut
373.407 2.608 acut...

que je lance à partir de l'EDI ou directement l'exécutable, indifféremment.

NaN signifie Not a Number et est provoqué par une division par zéro d'une fonction mathématique

D'habitude, une division par zéro déclenche une exception. quand j'observe le résultat, il semble que ce soit des valeurs extrêment petites.

Tu peux vérifier la validité d'un nombre par la fonction IsNan de l'unité Math.

J'aurais préféré protéger mon code avec un try/finally/except. N'existe-t-il pas une option du compilateur?

[Caribensila]

D'habitude, une division par zéro déclenche une exception. quand j'observe le résultat, il semble que ce soit des valeurs extrêment petites.

Nan n'est pas une exception.
Ce n'est souvent qu'une valeur mathématiquement indéterminée, comme :

Code :

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

Edit1.Text := FloatToStr(0/0);

[parhelie]

Ok, merci pour vos réponses.

J'ai trouvé le maillon faible, j'ai mis un if isNan() et tout semble rouler à présent.

Nan n'est pas une exception.

En effet, et à mon sens, c'est domage.

@+

[DomDA91]

Voir SetExceptionMask et Set8087CW dans l'aide Delphi !

Ces fonctions permettent de masquer ou non les exceptions de la FPU dont celles pouvant résulter d'opération sur des NaN.