Discussion :

[souminet]

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 :

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

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

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

[JustMe]

La question elle est ou?

[souminet]

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!!!!

[aityahia]

:Salut:
ça doit convenir comme ça

Code :

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

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;

[souminet]

:Salut:
ça doit convenir comme ça

Code :

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

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