Discussion :

[kiminfor]

Bonjour,
j'ai fais une petite application qui permet de créer un matricule à chaque employé, mais après avoir crèe, au lieu d'avoir ce classement:

0000001
0000002
.
.
.
.
9999999

Le classement s'est fait de cette façon:
1000000
2000000
..

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
i:=0000000;
Table1.First;
  while not Table1.Eof do
   begin
          s:='i';
          Table1.Edit;
          Table1['MATRI'] := i ;
          Table1.post;
          Table1.Next;
          i:=i+1;
   end;
i:=i+1;
Table1.Next;
end;

Outils utilisés:
Paradox7 et Delphi5
Comment devrai je corriger ça?

[Aka Guymelef]

Bonjour,

je dirais que tu as deux possibilités pour résoudre ce problème :

• soit tu gère le matricule en tant que champ chaîne de caractère et c'est toi qui rajoute les chiffres à la main devant le nombre pour former un matricule complet.
• soit tu continue à avoir un matricule en tant que champ entier (pense à utiliser l'auto-inc éventuellement) et c'est au niveau de l'affichage que tu appliques un formatage pour rajouter les 0 devant.

[kiminfor]

Bonjour,
[*]soit tu continue à avoir un matricule en tant que champ entier (pense à utiliser l'auto-inc éventuellement) et c'est au niveau de l'affichage que tu appliques un formatage pour rajouter les 0 devant.[/list]

Merci pour la réponse!
comment je fais le formatage pour rajouter les 0 devant?
J'ai essayé d'initialiser les variables avec le nombre de zéro nécéssaire (i:=0000000) et au moment de rajouter je rajoute avec le nombre de zéro qu'il faut i:=i+0000001;
Mais c'est faux car ça ne change rien.
Peux tu m'expliquer un peu plus ?
Merci...

[Aka Guymelef]

A partir du moment où tu veux rajouter des 0 devant, tu ne dois plus travailler avec un champ entier mais un champ texte. En effet d'un point de vue mathématique 0000001 et 1 c'est pareil, et bien pour le PC également c'est pareil. Et comme le PC est pragmatique les 0 devant, ça lui sert à rien donc il les vire.

Donc pour gérer la chose tu dois incorporer tes 0 et le nombre dans une chaîne, grossièrement :

Code :

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

s := '00000' + IntToStr( i );

Je te conseilles de te documenter sur la fonction Format et ses possibilités, en écrivant par exemple :

Code :

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

s := Format('%7d', i);

(non-testé)

[Cl@udius]

Salut

La fonction Format attend un array, et surtout ne pas oublier le point (.) dans le format ce qui fait toute la différence:

Code :

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

Format('%.7d', [123])

@+ Claudius

[Aka Guymelef]

Merci Cl@udius.

[kiminfor]

c'est toujour pas résolu pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
i:=0;
Table1.First;
  while not Table1.Eof do
   begin
          s := Format('%.7d', i);
          s:='i';
          Table1.Edit;
          Table1['MATRI'] := i ;
          Table1.post;
          Table1.Next;
          i:=i+1;
   end;
i:=i+1;
Table1.Next;
end;

Erreur: type incompatible 'array' et 'integer'

[Cl@udius]

Salut

Cette erreur vient de ce que Format attend un tableau en 2° paramètre. Voir ma remarque plus haut.

Par contre je ne saisi pas très bien ton code, je verrais quelque chose comme ceci qui réattribue un code à chaque enregistrement en partant de 1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i: Integer;
begin
  i := 1;
  with Table1 do
  begin
    First;
    while not Eof do
    begin
      Edit;
      FieldByName('MATRI').AsString := Format('%.7d', [i]);
      Post;
      Next;
      Inc(i);
    end;
  end;
end;

@+ Claudius

[kroma23]

salut
voila ce code j'espere que tu trouvera ton desire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
if table 1.eof then
edit1.text:='00001'
else
begin
cp:=strtoint(table1.fieldvalues['code']);
cp:=cp+1;
if cp<10 then
edit1.text:='0000'+inttostr(cp)
else
if cp<100 then
edit1.text:='000'+inttostr(cp)
else
if cp<1000 then
edit1.text:='00'+inttostr(cp)
else
if cp<10000 then
edit1.text:='0'+inttostr(cp)
else
edit1.text:=inttostr(cp);
end;
 
a+

[kiminfor]

Ah d'accord je vois plus clair
effectivement ton code est plus net et plus lisible
Merci pour la réponse Cl@udius

[kiminfor]

Merci kroma23 ça y est c'est réglé!