Bonjour
je parcours une table INTERBASE et je voudrais afficher à l'écran un compteur
wcpt pour suivre l'avancement de mon traitement.
Normalement à chaque fin de passage sur un enregistrement , le champ edit1.text s'incrémente ,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 WCPT := 0; // VARIABLE INTEGER DM1.IBTABLE2.First; While DM1.IBTABLE2.Eof = false do begin Traitement DM1.IBTABLE2.Post; DM1.IBTABLE2.next; WCPT:=WCPT+1; EDIT1.TEXT:=INTTOSTR(WCPT) ; END; Showmessage ('Fin Traitement');
mais hélas il reste toujours blanc ! Pourquoi ?
Merci de m'orienter .....
Partager