Afficher les zéros avant mes chiffres

Signaler
-
 denisbertin -
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 :)

4 réponses

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




@+
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
Salut,

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

EditCTEK.Text := Format('%.6d', [somme]);
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
Je n'avais pas fait attention au format du nombre (float).
C'est walidlam qui a juste.

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;