المدير العام Admin
عدد الرسائل : 289 العمر : 49 تاريخ التسجيل : 02/12/2008
| موضوع: تعلم برمجة Pascal الدرس الثاني عشر - انشاء وحداتك الخاصّه الإثنين يناير 19, 2009 7:10 am | |
| لابد و انك تعلم ما هي الوحدات , تذكر ذلك عندما استخدمنا الوحده crt , قد تضطر يوماً إلى كتابة العديد من الاجراءات و الدوال . يمكنك انشاء وحدتك الخاصه ووضعك اجراءاتك و دوالك فيها . لإنشاء وحدتك الخاصه يجب اولا ان تنشئ ملف باسكال جديد بإسم MyUnit.pas . السطر الاول يجب ان يبدأ بالكلمه unit و بعدها اسم وحدتك . اسم الوحده يجب ان تكون مثل اسم الملف . شيفره برمجيه : PHP CODE: 0001 0002 ?> في السطر التالي نقوم بإضافة الكلمه interface . بعدها يجب علينا وضع اسم الاجراء الذي سوف نستخدمه من هذه الوحده . على سيبل المثال قمنا بإنشاء داله بإسم NewReadln تشبه Readln و لكنها تسمح لك بتحديد عدد الحروف التي يمكن ادخالها . شيفره برمجيه : PHP CODE: 0001 0002 0003 0004 0005 0006 unit MyUnit; interfacefunction NewReadln(Max: Integer): String; ?>
السطر الذي يليه نضيف الكله implementation . هذا هو المكان الذي يمكنك ان تكتب في كامل شيفرتك و اجراءاتك و دوالك . سوف نحتاج إلى استخدام الوحده crt لإنشاء NewReadln . بعد الانتهاء من الوحده يجب ان نكتب الامر end للانتهاء .
شيفره برمجيه : PHP CODE: 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 0028 unit MyUnit; interfacefunction NewReadln(Max: Integer): String;implementationfunction NewReadln(Max: Integer): String; var s: String; c: Char; begin s := ''; repeat c := ReadKey; if (c = #{#8 = BACKSPACE} and (s >< '') then begin Write(#8+' '+#; delete(s,length(s),1); end; if (c >< # 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 .
شيفره برمجيه : PHP CODE: 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 program MyProgram; uses MyUnit;var s: String;begin s := NewReadln(10); end. ?> | |
|