Le type double

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:

---

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

---

ensuite je fais ceci

Code:

---

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:

---

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!

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

Oïe,

Citation:

---

Envoyé par ALT

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:

---

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:

---

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:

---

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