Discussion :

[malone12]

bonjour j'ai un problème avec cette boucle je comprend pas pour quoi elle marche pas voila 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
20
21
22
23
24
25
26
27
28
29
 
 
 
var
i:integer;
begin
form6.Table1.First;
for i:= 1 to form6.Table1.RecordCount do
begin
   if(DBLookupComboBox2.Text=form6.table1.FieldValues['titre']) and (form6.table1.FieldValues['NOMBREEXEMPLAIRES']>0 ) then
     begin
      table1.insert;
Table1.FieldValues['code']:=sEdit1.Text;
Table1.FieldValues['Datepret']:=DateTimePicker1.date;
Table1.FieldValues['nom']:=DBLookupComboBox1.Text;
table1.FieldValues['titredu']:=DBLookupComboBox2.Text;
Table1.post;
form6.Table1.Edit;
form6.Table1.FieldValues['NOMBREEXEMPLAIRES']:=form6.Table1.FieldValues['NOMBREEXEMPLAIRES']-1;
showmessage('un message');
break;
       end
        else
        begin
        showmessage('un message');
         break;
         end;
        end;
   end;

la boucle ne tourne pas elle compare toujours avec le 1er enregistrement,merci pour votre aide

[Cl@udius]

Salut

la boucle ne tourne pas elle compare toujours avec le 1er enregistrement,merci pour votre aide

Oui c'est normal.
Tu ne te déplaces pas dans la table: absence d'un Next.
Tu effectues donc une itération sur I de 1 à RecordCount, mais ta table reste sur le 1° enregistrement.

[edit]
J'utiliserais plus une boucle while not Eof, ou mieux un Locate sur le Table si cela est possible.

@+ Claudius

[malone12]

j'ai pus la faire avec while not EOF,mais je veux la faire aussi avec FOR,cest vrais que j'ai pas mis table.next mais ou mettre le next?

[Cl@udius]

... mais ou mettre le next?

A la fin de la boucle, juste avant le end du for.

@+

[malone12]

merci pour ton aide