Discussion :

[HASSIOMAR]

Bonjour
je parcours une table INTERBASE et je voudrais afficher à l'écran un compteur
wcpt pour suivre l'avancement de mon traitement.

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');

Normalement à chaque fin de passage sur un enregistrement , le champ edit1.text s'incrémente ,
mais hélas il reste toujours blanc ! Pourquoi ?

Merci de m'orienter .....

[Andnotor]

Normalement à chaque fin de passage sur un enregistrement , le champ edit1.text s'incrémente ,
mais hélas il reste toujours blanc ! Pourquoi ?

Tant que tu tournes dans la boucle, le programme ne peut pas traiter les messages (de repeinture ici). Tu peux le forcer en ajoutant Application.ProcessMessages en fin de boucle.

[Gilbert Geyer]

Bonjour,

Et ceci ne marcherait-il pas : ?

Code :

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

1
2
3
4
5
6
7
8
9
While DM1.IBTABLE2.Eof = false do
    begin
      Traitement
      DM1.IBTABLE2.Post;
      DM1.IBTABLE2.next;
      WCPT:=WCPT+1;
      EDIT1.TEXT:=INTTOSTR(WCPT) ;
      EDIT1.UpDate;
    END;

A+.

[ShaiLeTroll]

Tant que tu tournes dans la boucle, le programme ne peut pas traiter les messages (de repeinture ici). Tu peux le forcer en ajoutant Application.ProcessMessages en fin de boucle.

En fin de boucle, il sera trop tard !

Comme Gilbert Geyer, mais j'utilise plutôt un Refresh()
Attention au scintillement, en général, je ne force le Refresh que tout les 16 ou 256 itérations

Code :

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

1
2
3
4
5
      Inc(WCPT);
      Edit1.Text := IntToStr(WCPT) ;
      // if not ByteBool(R and $0F) then // toutes les 16 itérations
      if not ByteBool(WCPT) then // toutes les 256 itérations
        Edit1.Refresh();

Evite de tout taper en majuscule, heureusement que Delphi ne respecte pas la casse contrairement au C++ !


Pour info

Code :

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

While DM1.IBTABLE2.Eof = false do

s'écrit aussi (syntaxe recommandé par Embarcadero: Utilisation des propriétés Eof et Bof )

Code :

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

While not DM1.IBTABLE2.Eof do

[Andnotor]

En fin de boucle, il sera trop tard !

On peut jouer sur les termes : en fin de boucle on est encore dans la boucle comme en fin de matinée on est toujours le matin

[Gilbert Geyer]

Bonjour,

ShaiLeTroll : Comme Gilbert Geyer, mais j'utilise plutôt un Refresh()

En fait je me contente d'un Edit1.UpDate pour la bonne et simple raison que ça marche et que je n'ai jamais compris les subtilités qui font la différence entre les UpDate, les RePaint et les ReFresh.
J'en profite donc pour poser la question car j'aimerais bien comprendre.
C'est le même problème avec les images : Image1.Invalidate, Image1.RePaint , Image1.ReFresh...

A+.

[ThWilliam]

@Gilbert

Repaint : oblige Windows à redessiner immédiatement le composant.
Refresh : idem, c'est en fait un appel à Repaint.
Invalidate : oblige Windows à redessiner le composant, mais en plaçant dans une file d'attente ("quand vous aurez le temps de redessiner").
Update : sauf erreur de ma part, c'est le fait de demander un re-dessin immédiat, mais qui ne se fera que si il y a une zone invalidée (p.ex, une partie du composant).
En fait Repaint, c'est un Invalidate (obligation de redessiner) + un update ("fais le tout de suite").

Thierry

[Gilbert Geyer]

Re-salut,

Merci à ThWilliam pour tes explications ... car on s'y perd dans toutes ces subtilités.

A+.

[HASSIOMAR]

Merci à vous tous , maintenant j'ai l'embarras du choix mais je me contente de
la réponse EDIT1.UpDate;

Tous mes remerciements et salutations.