Delphi 2010 - Problème de la séparation des milliers

Salut

Ce code fonctionne bien sur le niveau de Delphi 7 , mais au niveau de Delphi 2010 met un lettre arabe entre les numéros après l'exécution

Code:

---

Edit2.Text := FormatFloat('###,###,###',StrToFloat(edit1.Text));

---

Résultat après F9

16ى000ى000

Solution SVP :?

Bonjour,

Quelle est la valeur de ThousandSeparator sur votre poste ? et lors de l'exécution du programme ?

voici une manière d'avoir le point séparateur quelque soit les paramètres du poste

Code:

---

1 2 3 4 5 6 7 8

uses ... sysutils, .....   OldThousandSeparator : Char; // attention il s'agit d'un widechar en d2010 alors qu'il s'agissait d'un char en d7 .... OldThousandSeparator:=ThousandSeparator; ThousandSeparator:='.'; Edit2.Text := FormatFloat('###,###,###',12345678); // résultat espéré 12.345.678 ThousandSeparator:=OldThousandSeparator;

---

voir également TFormatSettings

Juste pour information ;)

La "," définit que le nombre doit être représenté avec séparateur des milliers, on ne peut pas préciser où ce symbole apparaîtra dans la chaîne. Dès lors, formater la chaîne de formatage (!) n'est pas utile, on peut simplement écrire FormatFloat(',#',12345678). Si on voulait deux chiffres significatifs avec toujours séparation des milliers FormatFloat(',.00',12345678).

Merci ( Andnotor ) ,

Mais le problème a été résolu par la réponse ( SergioMaster )
Merci beaucoup ( SergioMaster ) la réponse évidente et directe :ccool:

Bonjour,

Citation:

---

Envoyé par Powerdj

Mais le problème a été résolu par la réponse ( SergioMaster )
Merci beaucoup ( SergioMaster ) la réponse évidente et directe

---

et bien si ma réponse convient la :plusser: ne coûte pas grand chose

Citation:

---

Envoyé par Andnotor

Dès lors, formater la chaîne de formatage (!) n'est pas utile, on peut simplement écrire FormatFloat(',#',12345678)

---

Merci de cette précision , il faut dire , à ma décharge, que je n'utilise jamais FormatFloat :roll:, j'avais simplement repris le code de départ en omettant toutefois le StrToFloat(edit1.Text) << ça j'aime pas beaucoup , trop de possibilité d'erreurs