السلام عليكم و رحمة الله وبركاته
قمت بالتعديل على برنامج يقوم بحساب الملفات الموجودة في مجال محدد وقمت بإدراج progressbar لإظهار تقدم عملية الفحص ولكن المشكلة أني لم أجد الكود المناسب رغم البحث
الرجاء مساعدتي في ذلك وبارك الله فيكم
الملف بالمرفقات
السلام عليكم ورحمة الله وبركاته
اخي الملف الذي في المرفق ناقص
اعادة التأكد من المرفق
السلام عليكم ورحمة الله وبركاته
معذرة أخي لإدراج ملف ناقص
الملف الكامل موجود بالمرفقات
أدخل تعليمة تحريك 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;
الامر ليس بهذه البساطة أخي سفيان ..
الخطوات :
1- حساب الحجم الكلي او العدد الكلي للملفات و المجلدات المحددة ( حسب الهدف من البحث )
2- تعيين القيمة ( max ) للــ progressbar وفق الحجم او العدد الكلي ..
3- زيادة قيمة ( position ) للــ Progressbar مع كل ملف او مجلد مضاف حسب الحجم الذي يشكله من الحجم الكلي .
4- انشاء ( Thread ) منفصل لكل عملية ( البحث و التحريك و الاسناد ) ..
--------------
بالتوفيق
السلام عليكم ورحمة الله وبركاته
شكرا لإهتمامكم بموضوعي وأستسمح الأخ river مدي بمثال وجزاك الله خير الجزاء
السلام عليكم ورحمة الله وبركاته
لقد تمكنت بحمد الله من حل مشكلتي وكان الحل بسيطا ولكي تعم الفائدة إليكم أعضاء المنتدى الرائع البرنامج مع الكود
وجزاكم الله خير الجزاء