Discussion :

[Just-Soft]

Salut;

j'ai une boucle qui parcours tout les enregistrements d'une table, lors de ce parcours j'ai tenté d'afficher un message dans un Label comme ceci:

Code :

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

1
2
3
4
5
6
7
 
while not(table1.eof) do
begin
  // traitement
  table1.next;
  Label1.caption := IntToStr(Table1.RecNo) + '/' + IntToStr(Table1.RecordCount);
end

à mon étonnement, le label continu à afficher Labe1. une idée?

Merci.

[Archimède]

et avec application.processmessage dans la boucle, ça devrait le faire...

@+

[Aos]

Oui, effectivement, si tu utilises application.Processmessage, ça resoudra ton problème.

Attention cependant, pendant les traitements long, à ne pas recliquer plusieurs fois sur le bouton, parce qu'avec processmessage, ton application ne sera plus bloquée.
Tu peux regarder ici :
http://delphi.developpez.com/faq/?pa...rocessmessages

La technique utilisée répond à ta question. (meme si, a la base, c'est fait pour traiter autre chose).

Aos.

[Just-Soft]

Merci à vous. oui, effectivement ça me donne entière satisfaction. pour le moment.