Ecrire un nombre précédé de '0'

j'ai un numero de client 0054 et quand je l'écris dans un fichier texte ca marque juste 54 mais moio je voudrais que ca marque les 4 chiffres tel : 0054

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

client : array[1..max] of integer ; procedure traitement; var i : integer ; begin i := 1 ; while not eof(police) do begin readln(police,client[i]); writeln(resultat,client[i]:4); i := i + 1 ; end; end;

---

Concatène ta chaîne avec autant de '0' que nécessaire
(chaine:='0'+chaine, par exemple).
Pour ça, il te faudra passer par une variable intermédiaire, de type chaîne à 4 caractères, dans laquelle tu placeras d'abord la chaîne correspondant à ton nombre (ex : '54' si le nombre est 54).

Hum ! J'espère avoir été clair... :aie: