إستعمال الprogressbar

[سفيان العباسي]

السلام عليكم و رحمة الله وبركاته

قمت بالتعديل على برنامج يقوم بحساب الملفات الموجودة في مجال محدد وقمت بإدراج progressbar لإظهار تقدم عملية الفحص ولكن المشكلة أني لم أجد الكود المناسب رغم البحث
الرجاء مساعدتي في ذلك وبارك الله فيكم

الملف بالمرفقات

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

اخي الملف الذي في المرفق ناقص
اعادة التأكد من المرفق

[سفيان العباسي]

السلام عليكم ورحمة الله وبركاته

معذرة أخي لإدراج ملف ناقص
الملف الكامل موجود بالمرفقات

[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;

[Rover]

الامر ليس بهذه البساطة أخي سفيان ..

الخطوات :

1- حساب الحجم الكلي او العدد الكلي للملفات و المجلدات المحددة ( حسب الهدف من البحث )

2- تعيين القيمة ( max ) للــ progressbar وفق الحجم او العدد الكلي ..

3- زيادة قيمة ( position ) للــ Progressbar مع كل ملف او مجلد مضاف حسب الحجم الذي يشكله من الحجم الكلي .

4- انشاء ( Thread ) منفصل لكل عملية ( البحث و التحريك و الاسناد ) ..

--------------

بالتوفيق

[سفيان العباسي]

السلام عليكم ورحمة الله وبركاته
شكرا لإهتمامكم بموضوعي وأستسمح الأخ river مدي بمثال وجزاك الله خير الجزاء

[سفيان العباسي]

السلام عليكم ورحمة الله وبركاته

لقد تمكنت بحمد الله من حل مشكلتي وكان الحل بسيطا ولكي تعم الفائدة إليكم أعضاء المنتدى الرائع البرنامج مع الكود
وجزاكم الله خير الجزاء