Discussion :

[souminet]

Bonjour à tous,
Voilà, dans mon application, j'ai un bouton Recherche que j'utilise pour comparer les enregistrements de 2 tables, ceux qui existent au niveau des 2 tables, sont ensuite repris (insérés) dans une 3 ième table!!!
Le problème est que lorsque l'application commence à s'exécuter (Bouton recherche) tout se fige en attendant que la procédure s'éxécute entièrement!! Mais voilà, pour calculer le nombre d'enregistrements trouvés, j'ai implémenté un compteur à l'aide d'une variable I: Integer; donc à chaque enregistrement trouvé aprés comparaison,

Code :

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

i:=i+1

(A l'intérieur de la boucle while...) et un Edit: reçois la valeur de I

Code :

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

Edit1.text:=inttostr(i);

Mon problème est que je ne vois pas l'incrémentation du compteur à travers l'édit sur mon interface, j'attend la fin de la procédure de recherche (parcours entier des 2 tables...) Pour que le résultat final des enregistrements trouvés (La valeur de I) soit visible au niveau du composant edit!!
J'espère avoir été assez clair!!!
Merci

[Gilbert Geyer]

Salut,

C'est normal avec Edit1.text:=inttostr(i); à l'intérieur d'une boucle.
par contre avec :

Code :

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

1
2
3
4
5
6
7
 
      while Condition do
      begin ...
              Edit1.text:=inttostr(i);
              Edit1.Update; // < mise à jour de l'affichage
              ... 
      end;

... tu n'auras plus à attendre la fin de la boucle pour voir l'affichage
... sauf que cela va défiler à la vitesse d'exécution de la boucle ce qui permet tout juste de voir que cela avance.

A+

[ero-sennin]

Salut,

Il y a aussi le Application.ProcessMessages

Soit le test suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Edit1.Text:='toto';
  for i:=0 to 10000 do
  begin
    Edit2.Text:=IntToStr(i);
    Edit2.Update;
  end;
end;

Ici l'instruction Edit1.Text:='toto' ne sera visible que lorsque mon traitement entier sera terminé, c'est à dire une fois la boucle terminée.

Second test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Edit1.Text:='toto';
  for i:=0 to 10000 do
  begin
    Edit2.Text:=IntToStr(i);
    Application.ProcessMessages;
  end;
end;

Ici on traite les messages en attente donc la première instruction sera traitée lors du premier passage dans la boucle.

Sinon, on peut faire ceci:

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
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  //NextGrid1.AddRow(5);
  Edit2.Text:='oto';
  Application.ProcessMessages;
  for i:=0 to 10000 do
  begin
    Edit1.Text:=IntToStr(i);
    Edit1.Update;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Edit1.Text:='toto';
  // On traite le premier message
  Edit1.Update;
  for i:=0 to 10000 do
  begin
    Edit1.Text:=IntToStr(i);
    // On actualise l'affichage de l'Edit
    Edit1.Update;
  end;
end;

Donc je me demande une chose ... Dans quel cas c'est intéressant de mettre le Application.ProcessMessages et le Update

Merci de m'éclairer

[Cl@udius]

Salut

Donc je me demande une chose ... Dans quel cas c'est intéressant de mettre le Application.ProcessMessages et le Update

Merci de m'éclairer

La méthode Update de TControl ne va traiter que les messages de réaffichage du contrôle. Alors qu'un ProcessMessages va traiter l'intégralité des messages Windows en attente quelque soit leur nature.

@+ Claudius.

[ero-sennin]

Salut

La méthode Update de TControl ne va traiter que les messages de réaffichage du contrôle. Alors qu'un ProcessMessages va traiter l'intégralité des messages Windows en attente quelque soit leur nature.

@+ Claudius.

Ok ok. Donc ici il est plus judicieux de placer un Update qu'un ProcessMessages vu qu'il s'agit d'un simple rafraichissement ?

Et moi qui utilisait tout le temps le ProcessMessages, là je me rend compte que je ne l'utilisait surement pas à bon essient et j'ai pas trop de méthode qui me vient à l'esprit pour illustrer un cas pour l'utiliser ...

Merci de ces infos

[souminet]

Bonjour;
merci de vos explications, j'ai essayé le update et ça marche, mais je n'ai pas saisi pourquoi l'instruction : edit1.text:='toto' n'est visible qu'à la fin du traitement!!! (J'ai testé le truc au niveau de mon application) J'ai certainement une vision assez simpliste de la programmation, mais une instruction qui devance un While est à ma connaissance traitée en premier non????

N.B: Au risque de passer pour une idiote, je crois qu'il y'a erreur de frappe dans le code suivant non??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Edit1.Text:='toto';
  for i:=0 to 10000 do
  begin
    Edit2.Text:=IntToStr(i);
    Edit2.Update;
  end;
end;

on initialise le edit1 par la chaine de caractères: ToTo, puis on travaille sur Edit2 dans la boucle!!???

Merci bien de votre aide!!