Discussion :

[tchimou]

Bonjour à tous!
voici j'ai declaré une varaible en double et cette variable là, je la mets dans un Edit .
j'ai donné à Edit le formatFloat pour avoir par defaut le 0,00 comme valeur

Code :

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

Edit_Recet1.Text:=FormatFloat('#,###,##0.00',0);

ensuite je fais ceci

Code :

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

Edit_Recet1.Text:=FormatFloat('#,###,##0.00',StrToFloat(Edit_Recet1.Text));

ensuite j'ai declaré celui-ci en double nRec1
et et il reçoit Edit_Recet1

Code :

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

nRect1:=StrToFloat(Edit_Recet1.Text);

Mais lorsqu'il reçoit une valeur comme 1000 , il m'affiche une erreur du style
erreur de convertion " 1000 is not a valid float point value".
je ne sais pas comme corriger la convertion.
Merci pour votre aide!

[philnext]

Ce n'est pas très clair tout ça (et tu n'es pas dans le bon forum).
Quelques pistes :
1/ dans tes strToFloat() fais plutôt un strToFloat(Trim())
2/ regardes si sur ton PC le séparateur décimal ne serait pas la virgule.

[Cl@udius]

Salut
Comme dit Philnext, ce n'est pas très clair.
D'autant que je ne comprends pas l'intérêt de ce code ?

Code :

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

Edit_Recet1.Text:=FormatFloat('#,###,##0.00',StrToFloat(Edit_Recet1.Text));

@+

[Fabrice ROUXEL 1]

tu as essayé 1000.0 ?

[tchimou]

au fait, je voudrais que mon edit accepte du float, et je voudrais le mettre à defaut à 0,00 ; et ainsi chaque fois que je lancerai mon application que la veleur dans l'Edit soit 0,00 ; et lorsque j'entre une valeur, cette valeur doit se mettre en virgule flottante avec deux zero apèrs la virgule comme 1,00 ou 500,00 si j'entre 1 ou 500.
c'est vrai que mon code est un peu confus.
Si quelqu'un connait une solution à cela, merci de m'aider

[Fabrice ROUXEL 1]

Non c'est clair.

Utilises un TMaskEdit dans l'onglet supplement.

Sinon si tu travailles sur des valeurs monétaires tu peux essayer cela:

Code :

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

1
2
3
4
procedure TForm1.Edit1Exit(Sender: TObject);
begin
 edit1.text := floattostrf(Strtofloat(Edit1.text), ffcurrency,10,2)
end;

La chaine est formattée en sortie du tedit( dépend des parametres régionaux de windows)

[tchimou]

Ok merci je vais essayer comme vous avez dite.
Merci