Discussion :

[Socrat]

Bonjour tout le monde,

Aprés formatage d'un Edit, je peux pas faire de calcul, ni d'affectation

Code :

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

1
2
3
4
5
6
7
8
float xSum=1678.56;
 
Edit1->Text=FormatFloat("##,###,##0.00",xSum);
.
.
.
 
Table1MONTANT->Value=StrToFloat(Edit1->Text);

message d'erreur :

'1 678.56' is not a valid floating point value


Remarequer l'espace de séparateur des milliers.

Comment peut on reformater le Edit1 ?

J'ai mets cette solution :

Aprés affichage, je formate mon Edit pour enlever l'espace de séparateur des milliers

Code :

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

Edit1->Text=FormatFloat("#######0.00",xSum);

mais ca ne marche pas

[rtg57]

Bonjour,

le problème provient du séparateur de décimale.
Regardez dans l'aide à propos de StrToFloat:

Code :

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

1
2
3
4
5
La variable globale DecimalSeparator définit le caractère qui doit être 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.

On rencontre le même genre de problème en VBA.
Il faut faire en sorte que lorsque l'utilisateur tape un '.' ou une ',', de remplacer ce caractère par le séparateur de décimale définit dans Windows.

En espérant que cela réponde à votre problème...

[henderson]

Salut !

Je ne sais pas s'il existe une fonction toute faite pour ce problème.

Par contre, en attendant une solution plus courte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
double __fastcall TForm1::FormatToFloat(AnsiString N)
{
AnsiString R = "";
char c;
for(int j = 1; j <= N.Length(); j++)
    {
    c = N[j];
    if(((c >= '1') && (c <= '9')) || (c == DecimalSeparator))
        {
        R = R + N[j];
        }
    }
return R.ToDouble();
}

donc :

Code :

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

1
2
 
double rSum = FormatToFloat(Edit1->Text);

Sans doute à améliorer !

A plus !

[Socrat]

Bonjour,

J'ai bricolé une autre solution, pour éviter l4utilisation de Edit!, je déclare une variable accessible dans tout ma Form1, xVar1, et a chaque modification au affectation de Edit1 je met cette variable a la meme valeur>
Comme ca j'ai mon affichage formaté et le traitement se fait avec xVar1, aprés chaque traitement j'affecte xVar1 a Edit1.

Et sa marche.

Avant cette solution, j'ai pensser a la meme sol de henderson au je remercie mais j'aurai plus de code.

Je remercie aussi rtg57.