Discussion :

[yinyann86]

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 :

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

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;

[ALT]

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