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
esque vous pouvé me dire ou est l'erreur
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;
Partager