Discussion :

[RiiiDD]

Hello,

je suis nouveau nouveau a delphi, et j'ai un soucis avec une progressbar :

je fais

Code :

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

1
2
3
4
5
6
7
8
 
    Prgbar.Max :=10;
    prgbar.Position := 0;
 while not mydataset.eof do
      begin
         Prgbar.position := prgbar.Position + 1;
          mydataset.next;
      end;

Ceci ne fonctionne pas ma progressbar n'avance pas !
en faisant des tests j'ai réussi a en faire fonctionner une :

Code :

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

1
2
3
4
5
6
7
8
 
prgbar.Position := 0;
Prgbar.Max := 1000;
    for i:=0 to 999 do
    begin
             prgbar.Position :=prgbar.Position+1;
      update;
    end;

Mais le même code avec 10 éléments ne marche pas, et en plus la fonction update de la form fait vraiment ralentir énormément l'exécution.
Je me dis donc que je fait mal qqchose.

??
Thx

[dd16]

Tu peux essayer de rajouter un PrgBar.Refresh; avant ton .next pour forcer la progressbar a se mettre a jour.

Autre petite chose, plutot que de code la borne de ton progressbar en dur, tu peux utiliser Prgbar.Max := myDataset.Recordcount, ca te permettra d'avoir une progressbar de borne variable en fonction de ton nombre d'enregistrement

[MrBoo]

Salut,

Petite question bête : Ton Dataset n'est pas vide, au moins....

Sinon, quel est la valeur de la propriété Step de ton progressbar?
Essayes d'utiliser la méthode StepIt...

Tchô.

[Qapoka]

2eme code :

Avec 10 éléments, c'est normal que tu ne la voit pas bouger (position max = 1000). Essaye avec 10 elements et en mettant Prgbar.Max :=50
Et que voit-tu si tu supprime le update? normalement, la form se met a jour automatiquement.

1er code :

At-tu verifié si le probleme ne vien pas du dataset. Passe en mode debug (F8 si mes souvenirs sont bons) et regarde combien de fois il passe dans la boucle. S'il en sort tout de suite, pas besoin de chercher plus loin.

[Manopower]

Dans ta boucle après l'incrémentation de pgrbar.position il serait utile d'écrire

Code :

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

application.processmessages;

instruction qui permet de laisser le CPU exectuer les autres actions avant de continuer ta boucle (notament de rafraîchier l'affichage de ta progressbar)

[RiiiDD]

Pour mon .max oui bien sur je l'affecte a mydataset.recordcount

et oui j'ai vérifié il renvoyait bien 10

LE processmessage résoud le problème (et le .refresh aussi)
MErci !

[Qapoka]

Bravo ,

Met le tag [RESOLU] pour l'indiquer.