مشروع مافكسبي 2003 بالدلفي نت

#121 أغسطس 2008 في 20:19 صاحب الموضوع

بسم الله الرحمن الرحيم

اخوتي اعذروني على الوجبة الداءمة

اقتباس
ساأغديكم و أعشيك بهذا المشروع

بحول الله سنقوم كما قمنا هنا و هنا

اذن لبدا

- جمع الوظائف و الإجراءات

أ)-الوظائف الخاصة بالملفات الفهارس 'الدليل"

*-: وظيفة من نوع منطقي ترجع القيمة صحيج ان تم اشاء الدليل الممر في المتغيرة iFld

*-: وظيفة من نوع منطقي ترجع القيمة صحيج ان تم نسخ كل ملفات الدليل و الفهارس الجزئية

*-: وظيفة من نوع منطقي ترجع القيمة صحيج ان تم حذف الدليل وكل محتوياته

*-: وظيفة من نوع منطقي ترجع القيمة صحيج ان تم التأكد من ان الدليل فارغ

*-:وظيفة من نوع عدد صحيح ترجع عدد الملفات التي تم نسخها في المجلد الصحيح

انسخ الكود

uses [color= #990000;]System[color= #339933;].io[color= #339933;];

[color= #000000; font-weight: bold;]function  DelFolder[color= #009900;](iFld[color= #339933;]:String[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

begin

try

[color= #666666; font-style: italic;]// حذف دليل مع كل محتوياته

     [color= #990000;]System[color= #339933;].io[color= #339933;].Directory[color= #339933;].Delete[color= #009900;](iFld[color= #339933;], [color= #000000; font-weight: bold;]true[color= #009900;])[color= #339933;];

     result[color= #339933;]:= [color= #000000; font-weight: bold;]true[color= #339933;];

except on exc[color= #339933;]:exception [color= #b1b100;]do

     begin

     Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]'خطأ لايمكنك الحذف'[color= #339933;], iFld[color= #339933;], exc[color= #339933;].Message[color= #009900;])[color= #339933;];

     result[color= #339933;]:= [color= #000000; font-weight: bold;]false[color= #339933;];

     [color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

انسخ الكود

[color= #000000; font-weight: bold;]function CreatFolder[color= #009900;](iFld[color= #339933;]:String[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

begin

try

     [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].CreateDirectory[color= #009900;](iFld[color= #009900;])[color= #339933;];

     result[color= #339933;]:= [color= #000000; font-weight: bold;]true[color= #339933;];

except on exc[color= #339933;]:exception [color= #b1b100;]do

     begin

     Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]'خطأ لايمكنك انشاء'[color= #339933;], iFld[color= #339933;], exc[color= #339933;].Message[color= #009900;])[color= #339933;];

     result[color= #339933;]:= [color= #000000; font-weight: bold;]false[color= #339933;];

     [color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 21 أغسطس 2008 في 20:38

#224 أغسطس 2008 في 21:50

محاولت لانشاء الواجهة

+ splash

MXP2003.rar

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 24 أغسطس 2008 في 21:51

#327 أغسطس 2008 في 23:08

انسخ الكود

uses [color= #990000;]System[color= #339933;].IO[color= #339933;];

[color= #000000; font-weight: bold;]function  IsEmptyFolder[color= #009900;]( iFld [color= #339933;]: String[color= #009900;])[color= #339933;]:boolean [color= #339933;];

begin

  [color= #b1b100;]if [color= #009900;](Length[color= #009900;](Directory[color= #339933;].GetDirectories[color= #009900;](iFld[color= #009900;])[color= #009900;])[color= #339933;]=[color= #cc66cc;]0[color= #009900;]) and [color= #009900;](length[color= #009900;](Directory[color= #339933;].GetFiles[color= #009900;](iFld[color= #009900;])[color= #009900;])[color= #339933;]=[color= #cc66cc;]0[color= #009900;])

   then

   Result[color= #339933;]:= [color= #000000; font-weight: bold;]false

[color= #b1b100;]else

   Result[color= #339933;]:= [color= #000000; font-weight: bold;]true[color= #339933;];

[color= #990000;]end[color= #339933;];

مشروع مافكسبي 2003 بالدلفي نت

مواضيع مشابهة