إستعمال الprogressbar

[shagrouni]

أدخل تعليمة تحريك ProgressBar في الإجرائية التالية:

كود :

procedure PourFichier(NomFichier:String;objet:Tobject); begin Form1.Memo1.Lines.Add(NomFichier);// j'ajoute le fichier trouvé dans le Memo1 inc(NbFichier); Form1.ProgressBar1.Position := NbFichier; end;