Discussion :

[Powerdj]

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 :

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

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

Résultat après F9

16ى000ى000

Solution SVP

[SergioMaster]

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 :

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

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

[Andnotor]

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).

[Powerdj]

Merci ( Andnotor ) ,

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

[SergioMaster]

Bonjour,

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 ne coûte pas grand chose

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 , 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