PETIT CONVERTISSEUR FRANC / EUROS

Commentaire de Nono40 le 08/09/2002 23:08:28

Si tu veux que les ZIP soient moins gros, prend seulement les fichiers suivants :
*.PAS   *.DFM   *.DPR  *.RES
Ainsi le ZIP de ton source ne fera que quelques Ko...

Mais surtout il est dommage que ton convertisseur donne de faux résultats !
Essaye de convertir 1.0677 Euros, tu obtients 7.365 Francs, or le résultat exact est 7.00365 Francs.

Ceci vient de ta manière ( compliquée ) d'afficher le résultat :
  franc.text:=inttostr( trunc(eur*tau) )+'.'+inttostr(round(frac(eur*tau)*100000));
Alors qu'il faut convertir un flotant :
  franc.text:=FloatToStrF(eur*tau,ffFixed,5,5);
Et dans l'autre sens :
  euro.text:=FloatToStrF(fra/tau,ffFixed,5,5);

Nono