Traitement sur un Edit1->text Formaté

Bonjour tt le monde,

J'ai un problème au niveau des traitement sur les Edit1->Text formaté et aussi les cellules StrigGrid.

Je m'explique :
float MyVarFloat=20000;

Code:

---

Montant->Text=FormatFloat("##,###,##0.00",MyVarFloat); //===> 20 000,00

---

Si le met le traitement suivant :

Code:

---

float xVal=StrToFloat(Montant->Text);

---

====> Error : 20 000,00 is not à valid floating point

Remarquer l'espace de séparation des milliers

Comment peut-on récupérer le format d'origne 20000 pour faire les traitements de calcul et de fonctions exple : StrToFloat ?


Même problème avec :
float xMontant=Grid1->Cells[3][2].ToDouble();

si Grid1->Cells[3][2]=FormatFloat("##,###,##0.00",MyVarFloat);



Merci.

Est-ce qu'il n y a pas de solution à ce problème !!!!!

J'attend une réponse avec impatience !!!
:roll::roll:

Merci.

Salut,

J'attend tjrs une réponse :(:(

Salut
Sur ce site il est de bon ton de faire preuve de patiente
il suffit de consulter l'aide pour obtenir un résultat

Citation:

---

La variable globale DecimalSeparator ou son équivalent TFormatSettings définit le caractère qui est utilisé comme séparateur décimal. Le séparateur des milliers et les symboles monétaires ne sont pas admis dans la chaîne. Si S ne contient pas une valeur valide, StrToFloat déclenche une exception EConvertError.

---

par ailleurs je ne comprends pas que tu veuilles faire des calculs à partir de chaine formatée alors qu'il me semble que tu dispose de la valeur originale (float)
mais comme je suis bon prince voici une possibilité de résolution

Code:

---

1 2 3 4 5

MyVarFloat=20000; Montant->Text=FormatFloat("##,###,##0.00",MyVarFloat); AnsiString Value=ReplaceStr(Montant->Text,"'","");// étant donné que la fonction strToFloat n'accepte pas le séparateur de milliers , il suffit de le faire disparaitre de la chaine float mFloat=StrToFloat(Value);

---

cdlt

Merci DjmSoftware;

Je vais essayer cette solution.


Merci encore :ccool::ccool:

Ca marche pas :

Même message d'erreur.

AnsiString Value=ReplaceStr(Montant->Text," ","");

"'" ===> " "

encore même pblm. :oops:

Hola :no::no::no::no::no::no::no:
le code que j'ai posté est parfaitement fonnctionel

Code:

---

1 2	AnsiString Value=ReplaceStr(Montant->Text,"'","");

---

tu a écris

Citation:

---

AnsiString Value=ReplaceStr(Montant->Text," ","");

---

Erreur de frappe

je te signale que le caractère <'> correspond au séparateur des milliers donc

Citation:

---

"'" ===> " "

---

est bien naturellement faux !!!!!