الدرس السادس عشر - انشاء وحداتك الخاصّه

انشاء وحداتك الخاصّه

لابد و انك تعلم ما هي الوحدات , تذكر ذلك عندما استخدمنا الوحده crt , قد تضطر يوماً إلى كتابة العديد من الاجراءات و الدوال . يمكنك انشاء وحدتك الخاصه ووضعك اجراءاتك و دوالك فيها .

لإنشاء وحدتك الخاصه يجب اولا ان تنشئ ملف باسكال جديد بإسم MyUnit.pas . السطر الاول يجب ان يبدأ بالكلمه unit و بعدها اسم وحدتك . اسم الوحده يجب ان تكون مثل اسم الملف .

unit MyUnit;

في السطر التالي نقوم بإضافة الكلمه interface . بعدها يجب علينا وضع اسم الاجراء الذي سوف نستخدمه من هذه الوحده . على سيبل المثال قمنا بإنشاء داله بإسم NewReadln تشبه Readln و لكنها تسمح لك بتحديد عدد الحروف التي يمكن ادخالها .

unit MyUnit;



interface



function NewReadln(Max: Integer): String;

 

السطر الذي يليه نضيف الكله implementation . هذا هو المكان الذي يمكنك ان تكتب في كامل شيفرتك و اجراءاتك و دوالك . سوف نحتاج إلى استخدام الوحده crt لإنشاء NewReadln . بعد الانتهاء من الوحده يجب ان نكتب الامر end للانتهاء .

unit MyUnit;



interface



function NewReadln(Max: Integer): String;



implementation



function NewReadln(Max: Integer): String;

var

   s: String;

   c: Char;

begin

   s := '';

   repeat

      c := ReadKey;

      if (c = #8){#8 = BACKSPACE} and (s >< '') then

         begin

            Write(#8+' '+#8);

            delete(s,length(s),1);

         end;

      if (c >< #8) and (c >< #13){#13 = ENTER} and (length(s) < Max) then

         begin

            Write(c);

            s := s + c;

         end;

   until c = #13;

   NewReadln := s;

end; 

end.

بعدها قم بتخزين الوحده . الآن يمكننا استخدام وحدتنا MyUnit التي قمنا بإنشائها من خلال استدعاء الوحده و استخدام الداله التي فيها NewReadln .

program MyProgram;



uses

   MyUnit;



var

   s: String;



begin

   s := NewReadln(10);

end.

كلمه اخيره بواسطة المترجم

هكذا نكون قد انتهينا و لله الحمد من سلسلة دروس لغة البرمجه باسكال , آملين انكم قد استفدتم و استمتعتم من هذه السلسله , اعتذر على اي خطأ في الترجمه و دعواتكم .