Boucle et d'incrementation

**pierrot67** · 13/10/2009, 21h42

Bonjour

Je voudrais savoir comment faire une incrementation par une boucle afin d'éviter de remplir manuellement des champsj'

j'ai un champ dans un dbgrid N° Je voudrais donner le premier n° ex 01 et ensuite par une boucle de l'incrémenter (du style 02, 03, 04, 05,...)
j'ai fait cette boucle mais il m'incrémente qu'une fois et je me retrouve dans le cas ci-dessous avec 3102.

Code :

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

1
2
3
4
5
6
7
8
9
10
datamodule2.Nom.first;
repeat
datamodule2.Nom.Edit;
datamodule2.NomNDossard.value:=3101;
datamodule2.Nom.Post;
datamodule2.Nom.Edit;
datamodule2.NomNDossard.value:=datamodule2.NomNDossard.value + 1;
datamodule2.Nom.next;
until
datamodule2.Nom.Eof;

Je sais c'est pas très clair mais c'était juste pour essayer

merci d'avance

**Paul TOTH** · 13/10/2009, 22h45

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var 
 no : integer;
begin
  no := 1;
  datamodule2.Nom.first;
  repeat
    datamodule2.Nom.Edit;
    datamodule2.NomNDossard.value:= no;
    datamodule2.Nom.next;
    Inc(no);
  until datamodule2.Nom.Eof;
end;