Discussion :

[stfanny31]

salut tout le monde
j'ai un petit souci avec mon programe
j'esséyé de copier de la table (tligne) les enregistrment qui on la marge=0 vers la table(Tablemarge)mais j'obtien ke le dernier enregistrment qui satisfait cette condition

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
 
tligne.First;                                                 
    while not tligne.Eof do                          
       begin                                                 
       if (tligne.FieldByName('marge').Asinteger=0 )then    
         begin
            Tablemarge.edit;          
            Tablemarge['x0'] := tligne['x0']  ;
            Tablemarge['y0'] := tligne['y0']  ;
            Tablemarge['xe'] := tligne['xe']  ;
            Tablemarge['ye'] := tligne['ye']  ;
            Tablemarge.Post;
           end;  
             tligne.Next;Tablemarge.Next;                                          
      end;

esque vous pouvé me dire ou est l'erreur

[SergioMaster]

si c'est bien un ajout d'enregistrement

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
tligne.First;                                                 
    while not tligne.Eof do                          
       begin                                                 
       if (tligne.FieldByName('marge').Asinteger=0 )then    
         begin
            Tablemarge.Append; <- ici Append ou Insert pas Edit        
            Tablemarge['x0'] := tligne['x0']  ;
            Tablemarge['y0'] := tligne['y0']  ;
            Tablemarge['xe'] := tligne['xe']  ;
            Tablemarge['ye'] := tligne['ye']  ;
            Tablemarge.Post;
           end;  
             tligne.Next;
       Tablemarge.Next;  // inutile                                          
      end;

[stfanny31]

Merci Mr SergioMaster
cela marche trés bien