Discussion :

[sondo]

J'ai vu code dans le faq delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.ButtonMarcheClick(Sender: TObject);
var i : integer;
begin
  { Mise à faux de l'arrêt }
  Stop := False;
  I    := 0;
  { Traitement long }
  Repeat
    Inc(i);
    Label1.Caption := IntToStr(i);
    { Mise à jour des évènements en attente }
    Application.ProcessMessages;
  Until (i >= 100000000) or stop
end;

Par exemple, comment faire compter le nombre d'enregistrement dans une table en utilisant le code ci-dessus afin que l'utilisateur puisse suivre le déroulement du traitement ?
Merci d'avance.

[banban54]

bonsoir

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
 
procedure TForm1.ButtonMarcheClick(Sender: TObject);
var i : integer;
begin
  i := 0;
  Stop := False;
  with tatable do begin  //  active
    first;
    while not eof and stop do begin
      inc(i);
      edit1.text := IntToStr (i);
      Application.ProcessMessages;
      next;
    end;
  end;

en fonction de la taille de ta table ça risque d'être long et illisible
sinon:

Code :

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

1
2
3
4
5
 
procedure TForm1.ButtonMarcheClick(Sender: TObject);
begin
   edit1.text := IntToStr (tatable.recordcount);
end;

sera beaucoup plus rapide!

à plus!

[sondo]

Merci à toi.
Voici ce que je constate pour le premier code :rien ne se passe quand je clique sur le bouton, le Edit1 reste vide.
Pour le second code(Matable.recordcount), quand on clique sur le bouton, il affiche directement le nombre, sans qu'on ne voit voit l'incrémentation se dérouler dans le Edit1; comme le ferai Application.ProcessMessage;

[banban54]

bonjour
ça va être dûr, car je viens de voir sur le forum delphi:

le Application.ProcessMessages ne sert qu'a laisser passer les messages windows pour le rafraichissement de ta form et les applications à coté.

il faut faire un essai avec un DbEdit (sans disablecontrol)

à plus!

[sondo]

Alors là, ca va être difficile pour moi. Car tu viens de me parler de quelque chose de nouveau, à savoir l'usage de DBEdit(sans disablecontrol).
Si ce n'est pas trop vous demander, pouvez-vous me donner un exemple?
Merci.

[Rayek]

bonjour
ça va être dûr, car je viens de voir sur le forum delphi:

le Application.ProcessMessages ne sert qu'a laisser passer les messages windows pour le rafraichissement de ta form et les applications à coté.

Tient, je crois que c'est moi qui est écrit cela

Sinon pour revenir sur le sujet, Sondo :

- Qu'est ce que tu veux montrer à l'utilisateur ?
- La progression du traitement quand tu fais un table.open ?
- Afficher le nombre d'enregistrements de la table ?
- Faire défiler les nombres dans un label de 0 jusqu'au nombre d'enregistrements de la table ?

[sondo]

voilà ce que je veux en premier :
- Faire défiler les nombres dans un label de 0 jusqu'au nombre d'enregistrements de la table.
Deuxièmement :
- Si possible voir La progression du traitement quand tu fais un table.open.
Merci.