Problème edit exception EConvertErrorRésolu

Question

Salut, 
voici mon problème:
J'ai un edit qui affiche le 'montant total HT' (la somme d'une colonne d'un dbgrid de type currency)
dans un autre edit l'utilsateur doit saisir la taxe pour enfin affiché le totale TTC dans un troisième edit.
Le message d'erreur est le suivant: 
....raised exception class EconvertError with message "26 400,00 DA0" is not a valid floating point value.... 
avec 26 400,00 DA montant total HT et 0 Taxe		
Merci beaucoup.

cs_cantador · Accepted Answer

bonjour,

affiché le totale TTC dans un troisième edit.
cette zone doit être calculé mais 
pas accessible..

TTC = HT * (1 + tva/100)

mets un bout de code pour faciliter les échanges

cantador

anil16 · Answer

Merci cantador, c'est une idée, pour cette partie je pourrais faire un code comme tu la dis, mais après j'ai deux autres edit un pour saisir la somme payée et l'autre pour afficher le sold donc ça revient au même problème 
y a t il une solution pour ça
Merci encore

anil16 · Answer

re salut!
Même pour calculer le total TTC par un code j'ai le même problème , le résultat ne s'affiche pas dans le edit et le message d'erreur est similaire au précédent
....raised exception class EconvertError with message "26 400,00 DA" is not a valid floating point value....

Voici mon code:  Edit7.Text:= floattostr(strtofloat(Edit3.Text) *(1+17/100));

Merci pour votre aide

ThWilliam · Answer

Bonsoir Lina.

Si le texte de ton Edit est "26 400,00 DA" tu as alors :
- le séparateur de milliers qui est l'espace
- le séparateur de décimales qui est la virgule
- le symbole monétaire DA

Dans la fonction StrToFloat, le séparateur des milliers et le symboles monétaire ne sont pas admis dans la chaîne à convertir --> erreur de conversion. Seul est admis le séparateur de décimales.

Si tu tiens à afficher le format monétaire dans les edit, joue alors avec des variables qui mémorisent les valeurs. Exemple :

var
  HT: currency;

HT:= 26400.0 (obtenu par ton grid)
EditHT.Text:= FloatToStrF(HT, ffCurrency, 15,2);

Evenement OnEnter de ton Edit hors taxe :
EditHT.Text:= FloatToStr(HT);  // on entre en édition en ayant enlevé le format

Evénement OnExit de ton Edit Hors taxe :
HT:= StrToFloat(EditHT.Text);
EditHT.Text:= FloatToStrF(HT, ffCurrency, 15,2); // on réaffiche avec formatage
   
Pour éviter des erreurs provoquées par l'encodage dans l'edit, il faudrait jouer avec des blocs try...except
Mais je n'ai pas voulu compliquer.

Comme Cantador l'a dit, pour les infos qui ne peuvent pas être accessibles, n'utilise pas de TEdit ou alors met sa propriété readOnly = true.

A +
Thierry

anil16 · Answer

Bonsoir Thierry,

Merci beaucoup, j'ai bien compris le problème grace à votre explication détaillée héé bein!! ce edit manque beaucoup de flexibilité!!!
Bonne nuit

Problème edit exception EConvertError

5 réponses

Votre réponse

Discussions similaires