Discussion :

[XDavidX]

Bonjour,

Comment je peux ajouter des zéros à ma chaîne '8239.21' pour avoir '00008239.21' et ainsi de suite ?

ShowMessage(Format('%.*d', [3,7])); marche très bien ('007'), sauf que j'ai une erreur lorsque je mets un nombre décimal, par exemple '212.21'.

Je bloque dessus !

Merci

[Ph. B.]

Bonjour,

Comment je peux ajouter des zero a ma chaine '8239.21' pour avoir '00008239.21' ainsi de suite!
showmessage(Format('%.*d', [3,7])); marche tres bien '007', sauf que j'ai une erreur lorsque je mets un nombre décimal '212.21'
Je bloque dessus!

Si vous aviez regardé l'aide pour la fonction Format, vous auriez vu que le format indiqué était inadéquat : d s'applique aux valeurs entières, f aux valeur flottantes.

Il y a peut-être mieux comme écriture, mais ceci devrait répondre à votre problème :
ShowMessage(StringReplace(Format('%*.*f', [20, 3, 212.12]), ' ', '0',[rfReplaceAll]));

[Roland Chastain]

Une autre possibilité est d'utiliser la fonction FormatFloat :

Code :

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

ShowMessage(FormatFloat('0000.00', 212.21));

[XDavidX]

Merci beaucoup,
Lorsque ma variable reçoit un chiffre de editbox exp: ShowMessage(StringReplace(Format('%*.*f', [20, 3, edit1.Text]), ' ', '0',[rfReplaceAll]));
j'ai le message suivant : ' le format '%*.*f' est incorrect ou incompatible avec l'argument.

[Roland Chastain]

Merci beaucoup,
Lorsque ma variable reçoit un chiffre de editbox exp: ShowMessage(StringReplace(Format('%*.*f', [20, 3, edit1.Text]), ' ', '0',[rfReplaceAll]));
j'ai le message suivant : ' le format '%*.*f' est incorrect ou incompatible avec l'argument.

Sans vouloir t'offenser, il faudrait que tu commences par apprendre à distinguer les différents types de données en Pascal, en lisant un cours. En l'occurrence, Edit1.Text est une chaîne de caractères, que tu as mise là où le compilateur attend un nombre : ça ne peut pas fonctionner. Si certains langages de programmation admettent le passage implicite d'un type de données à un autre, ce n'est pas le cas du Pascal.

Bref, il faut ou convertir la chaîne en nombre (par exemple au moyen de la fonction StrToFloat), ou garder la chaîne mais dans ce cas la traiter d'une façon adéquate, c'est-à-dire en ajoutant un certain nombre de fois le caractère '0' au début de la chaîne.

[XDavidX]

Merci,
Excusez mon ignorance, ça marche a merveille