Discussion :

[Socrat]

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 :

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

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

Si le met le traitement suivant :

Code :

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

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.

[Socrat]

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

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


Merci.

[Socrat]

Salut,

J'attend tjrs une réponse

[DjmSoftware]

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

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 :

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

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

[Socrat]

Merci DjmSoftware;

Je vais essayer cette solution.


Merci encore

[Socrat]

Ca marche pas :

Même message d'erreur.

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

"'" ===> " "

encore même pblm.

[DjmSoftware]

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

Code :

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

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

tu a écris

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

Erreur de frappe

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

"'" ===> " "

est bien naturellement faux !!!!!