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!

[ALT]

Oui : 1000 est un entier.
En notation flottante, il faudrait : 1000.0 ou 1e3, par exemple.

[droggo]

Oïe,

Oui : 1000 est un entier.
En notation flottante, il faudrait : 1000.0 ou 1e3, par exemple.

Les fonctions gérant les flottants savent parfaitement interpréter des valeurs comme "1000"

tchimou

Ton problème, c'est dans Delphi, pas du Pascal, qui ne connaît pas les fonctions que tu utilises.

Réponse tout de même :

Je soupçonne fortement que ton message n'est pas une copie exacte du message d'erreur, mais qu'il s'est passé ceci:

- Tu as fait

Code :

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

1
2
3
4
5
6
...
var
  d : double;
...
  d := 1000;
  Edit_Recet1.Text:=FormatFloat('#,###,##0.00',d);

ce qui conduit à avoir dans Edit_Recet1

Code :

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

1 000,00

bien remarquer l'espaces entre le 1 et le 1er 0, conforme à ta demande de formatage du texte

Et désormais, la chaîne 1 000,00 n'est pas reconnue comme une valeur flottante, l'espace est interdit, c'est un séparateur.

A toi d'en tenir compte.

Il y a une autre version de FloatToStr:

Code :

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

function FloatToStr(Value: Extended; var FormatSettings: TFormatSettings): string; overload;

regarde l'aide si ça peut te convenir, sinon il faudra supprimer les espaces ajoutés par le formatage avant l'appel de FloatToStr