Afficher les zéros avant mes chiffres

- - Dernière réponse :  denisbertin - 20 mai 2013 à 15:27
Bonsoir,
Voici mon problème, j'effectue tout simplement un calcul, mais je veut absolument que ma réponse soit de 6 chiffres
Exemple si ma réponse est "35" je voudrais que ça m'affiche "000035"..
Comment faire?? Voici mon code
procedure TForm1.ButtonOKClick(Sender: TObject);
var A,B,somme:real;
begin

A:=StrTofloat(editref.text);
B:=(000031);
somme:=(999900-(A*100))+B;
EditCTEK.text :=FloatToStr(somme);
end;


Merci :)
Afficher la suite 

4 réponses

Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
0
Merci
salut!!!
EditCTEK.text :=FormatFloat('000000', somme);




@+
Commenter la réponse de cs_walidlam
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
0
Merci
Salut,

Tu peux utiliser, entre autres possibilités, la fonction Format.

EditCTEK.Text := Format('%.6d', [somme]);
Commenter la réponse de korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
0
Merci
Je n'avais pas fait attention au format du nombre (float).
C'est walidlam qui a juste.
Commenter la réponse de korgis
0
Merci
Si tu travail en entier tu peut faire :

i:integer;
s:sttring;

i:=100;
s:=inttostr(i);
for i:=1 to 6-length(s) do s:='0'+s;
Commenter la réponse de denisbertin