Discussion :

[alainvh]

Bonjour à tous.
En fait, je demande plus une aide à mieux comprendre la programmation événementielle qu'une solution à mon problème.
Voici mon problème:
dans un événement OnClick, j'ai une boucle qui, à chaque passage, effectue un travail (recopie d'un fichier dans un dossier). Je souhaite visualiser un compte-rendu pour chaque passage. Si je place ce compte-rendu dans un ShowMessage, pas de problème, ça marche, mais c'est inélégant (obligation de valider le message affiché). Si je place ce compte-rendu dans un Label.Caption ou dans un Edit.Text (ce que j'aimerais bien faire), seul le compte-rendu du dernier passage s'affiche (et ceci en sortie de l'événement OnClick). J'ai essayé un Refresh dans la boucle, ça ne marche pas.
En fait, j'ai résolu mon problème via une séquence Memo1.Clear - Memo1.Lines.Add('le compte-rendu').
Question : pourquoi les solutions Label.Caption ou Edit.Text ne fonctionnent-elles pas à chaque passage ?
D'avance merci.
Cordialement.
Alain

[Guennec.Yannick]

Je pense que la boucle s'effectue trop rapidement pour que tu puisses voir les différents affichage dans une textbox. Essaie de mettre une tempo eventuellement avant le passage à la boucle suivante

[Rayek]

Bonjour à tous.
En fait, je demande plus une aide à mieux comprendre la programmation événementielle qu'une solution à mon problème.
Voici mon problème:
dans un événement OnClick, j'ai une boucle qui, à chaque passage, effectue un travail (recopie d'un fichier dans un dossier). Je souhaite visualiser un compte-rendu pour chaque passage. Si je place ce compte-rendu dans un ShowMessage, pas de problème, ça marche, mais c'est inélégant (obligation de valider le message affiché). Si je place ce compte-rendu dans un Label.Caption ou dans un Edit.Text (ce que j'aimerais bien faire), seul le compte-rendu du dernier passage s'affiche (et ceci en sortie de l'événement OnClick). J'ai essayé un Refresh dans la boucle, ça ne marche pas.
En fait, j'ai résolu mon problème via une séquence Memo1.Clear - Memo1.Lines.Add('le compte-rendu').
Question : pourquoi les solutions Label.Caption ou Edit.Text ne fonctionnent-elles pas à chaque passage ?
D'avance merci.
Cordialement.
Alain

Selon le temps de copie de tes données, ca peut être plus ou moins rapide et donc tu ne verras rien s'afficher.
Sinon, le problème dans ce genre de cas, c'est que le programme ne laisse pas passer les messages windows (notamement celui de rafraichissement de la fenêtre et donc du label).

En général on code de la manière suivante :

Code :

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

1
2
3
4
5
6
7
 
For i := 0 to 500 do
begin
  Sleep(1000); // petite tempo juste pour le test
  Label1.caption := intToStr(i);
  Application.ProcessMessages; // Permet à l'application de laisser passer les messages windows
end;

Essai avec et sans le Application.processMEssages tu verras la différence dans l'affichage

[alainvh]

Merci à tous pour vos réponses.
C'est Malatar qui remporte la timbale ! C'est en effet l'instruction Application.ProcessMessages (que je ne connaissais pas) qui résoud ma difficulté : ce n'est ni un pb de concaténation, ni de vitesse : j'ai d'ailleurs essayé sans Slip - pardon, sans Sleep - et mon application marche bien.
Bien cordialement.
Alain

PS pour Malatar : je conserve un bon souvenir de Pont St Esprit, lors d'un mariage sur le bord du Rhône !