Progress Bar pour une initialisation de table

Bonsoir,
voilà, je bloque sur un truc depuis tout à l'heure, je voudrais implémenter un progress Bar pour une opération d'initialisation d'une table paradox, mais je ne sais pas comment y arriver.

L'initialisation se fait via ce petit bout de code:
Code:

1 2 3 4 5 6 7 if comboChoice.Text='Table Sorties' then begin DataModule2.TabsSorties.First; while not DataModule2.TabsSorties.Eof do DataModule2.TabsSorties.Delete; Showmessage('Initialisation efféctuée avec succès'); end;
Merci de m'aider :D

Merci +++++++++++++++++++++++++++++++++++

La question elle est ou?

Citation:

Envoyé par JustMe

La question elle est ou?

je crois que c'est clair , non????

je voudrais implémenter la progression d'un progress Bar pour une opération d'initialisation d'une table paradox, mais je ne sais pas comment y arriver!!!!

:Salut:
ça doit convenir comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 if ComboChoice.Text='Table Sorties' then
          begin
             Progressbar1.Max := DataModule2.TabsSorties.RecordCount;
             DataModule2.TabsSorties.First;
             Progressbar1.Position :=0;
             while not DataModule2.TabsSorties.Eof do
             begin
               DataModule2.TabsSorties.Delete;
               Progressbar1.Position := Progressbar1.Position+1;
             end;
             Showmessage('Initialisation efféctuée avec succès');
          end;

Citation:

Envoyé par aityahia

:Salut:
ça doit convenir comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 if ComboChoice.Text='Table Sorties' then
          begin
             Progressbar1.Max := DataModule2.TabsSorties.RecordCount;
             DataModule2.TabsSorties.First;
             Progressbar1.Position :=0;
             while not DataModule2.TabsSorties.Eof do
             begin
               DataModule2.TabsSorties.Delete;
               Progressbar1.Position := Progressbar1.Position+1;
             end;
             Showmessage('Initialisation efféctuée avec succès');
          end;

Merci c'est bon