Discussion :

[Marley_T]

salut ;


j'essaye de lire un fichier et utiliser une gauge pour afficher la progréssion du chargement du fichier dans une listbox .

mon probléme est que la gauge ne démmare pas mais le fichier est charger .

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
 
procedure TForm3.Button1Click(Sender: TObject);
Var
I ,nbr: Integer;
begin
with Gauge do
begin
      Gauge.MinValue:=0;
    Gauge.MaxValue:=ListBox1.Items.Count -1;
   for I := 0 to ListBox1.Items.Count - 1 do
 
   Gauge.Progress:=ListBox1.Items.Count;
 
 
end;
LireFichier(OpenDialog1.FileName,ListBox1.Items);
end;

Je voulais savoir comment régler la vitesse de progression de la gauge par rapport au chargement du fichier ? .

[Nono40]

Il faudrait déjà que l'incrémentation de la gauge se fasse pendant la lecture du fichier. Pour le moment tu fais tout avant de lire le fichier.

[Marley_T]

salut ,

Merci Nono pour ta réponse , j'ai résolu le probléme de la gauge , mais la vitesse
est trop elevée je voulais ralentir la vitesse de la progression , j'utilise un Timer pour ça .

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
 
procedure TForm3.Button1Click(Sender: TObject);
 
begin
LireFichier(OpenDialog1.FileName,ListBox1.Items);
 
for I := 0 to ListBox1.Items.Count - 1 do
 
      begin
       Gauge.Progress :=ListBox1.Items.Count +1;
       Gauge.MinValue:=0;
       Gauge.MaxValue:=ListBox1.Items.Count;
       Application.ProcessMessages;
 
 end;
 
  end;

le code lis le fichier déclenche la gauge , mais je voulais diminuer la vitesse de prgression de la gauge .

[evarisnea]

j'ai résolu le probléme de la gauge , mais la vitesse
est trop elevée je voulais ralentir la vitesse de la progression , j'utilise un Timer pour ça .

es tu sur d'avoir bien pensé ton besoin pour la gauge ? en général, cette dernière est utilisée pour faire patienter l'utilisateur lors des traitements longs. si un traitement est rapide, quel besoin y a t'il de le ralentir ? normalement on fait tout pour accélérer les traitements non ?

[edam]

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
 
procedure TForm3.Button1Click(Sender: TObject);
 
begin
LireFichier(OpenDialog1.FileName,ListBox1.Items);
 
for I := 0 to ListBox1.Items.Count - 1 do
 
      begin
       Gauge.Progress :=ListBox1.Items.Count +1;
       Gauge.MinValue:=0;
       Gauge.MaxValue:=ListBox1.Items.Count;
       Application.ProcessMessages;
 
 end;
 
  end;

le code lis le fichier déclenche la gauge , mais je voulais diminuer la vitesse de prgression de la gauge .

tu es sûr de ton code, car la je vois que tu as simplement permuté les choses ;
en plus dans ton boucle tu rensigne le min et le max,,,??????
donne ton proc lireFichier, car c'est cette dérnier que tu doit modifier la gauge, bien sûr si ton fichier dépasse les 1 go, comme ta dit evarisnea
bon dev
n'oublie pas, on as pas besoin d'un buldozer pour netoyer la maison, car il peut faire plus de mal que de bien

[anapurna]

salut

et les gars reveille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   LireFichier(OpenDialog1.FileName,ListBox1.Items);
   Gauge.MinValue:=0;
   Gauge.MaxValue:= ListBox1.Items.Count;
 
// c'est ici que bouge la gauge
// mais dans ton cas je voi pas trop l'utilité
  for I := 0 to Pred(ListBox1.Items.Count ) do
  begin
      Gauge.Progress :=i;     
      Application.ProcessMessages;
      ... 
  end;

@+ Phil