+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : التعامل مع الملفات الجزء 1 (/showthread.php?tid=7099)
التعامل مع الملفات الجزء 1 - rahiche - 14-07-2015
السلام عليكم أقدم لكم في هذا الموضوع البسيط مجموعة من الأوامر المهمة في التعامل مع الملفات
[B][COLOR="black"]0.معرفة اذا كان ملف موجود ام لا
[/COLOR][/B]يمكنك القيام بهذا باستخدام الدالة FileExists التي ترج لنا قييمة منطقية اما true او false فالاولى تعني وجود الملف و الثاني عدم وجوده و تحتوي الدالة على باراماتر واحد و هو من نوع string و الذي هو مسار الملف و هذا مثال
عرف متغير جديد من نوع string و اعطه مسار الملف المراد التحقق منه و للتحقق استخدم جملة الشر If كمثال
كود :
if FileExists(fileName)
then ShowMessage(fileName+' exists OK')[/B]معرفة المسار الكامل لملف :
ExtractFilePath (fullFileName)
الدالة تحتوي على باراماتر واحد من نوع نصي يمكنكم ربطه مع الملف و في أغلب الحالات يستعمل مع خاصية filename في opendilog
معرفة القرص الذي يحتيو عليه الملف
ExtractFileDrive هذه الدالة لديها ايضا نفس الباراماتر و هي تعطيك النتاج على شكل سترينج فيه اسم القرص الذي يتواجد فيه الملف و هذه مهمة في حال معرفة من اين يستعمل المستسخدم برنامج فقط بجعل الباراماتر هو برنامج باستخدام application.exename
[B]2.معرفة المساحة المتبقية من قرص
[/B]يتم باستخدام الدالة DiskFree التي تحتوي على باراماتر من نوع بايت و ترجع لنا قيمة من نوع عد صحيح int64 للتجريب يمكنك تعريف نتغير من نوع int64 و اعطائ الدالة بحد الباراماترات التالي
حيث كل قرص لديه رقم حسب التريتيب الابجدي
1 = A drive
2 = B drive
3 = C drive و هكذا كمثال لمعرفة المساحة المتبقية في القرص الصلب سي
كود :
ver freec:int64
begin
freec:=diskfree(3);
if freec > 0 then showmessage( FloatToStrF(freec, ffNumber, 20, 0)