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 ? .