لابد و انك تعلم ما هي الوحدات , تذكر ذلك عندما استخدمنا الوحده crt , قد تضطر يوماً إلى كتابة العديد من الاجراءات و الدوال . يمكنك انشاء وحدتك الخاصه ووضعك اجراءاتك و دوالك فيها .
لإنشاء وحدتك الخاصه يجب اولا ان تنشئ ملف باسكال جديد بإسم MyUnit.pas . السطر الاول يجب ان يبدأ بالكلمه unit و بعدها اسم وحدتك . اسم الوحده يجب ان تكون مثل اسم الملف .
شيفره برمجيه :
PHP CODE:
0001
0002
?>
في السطر التالي نقوم بإضافة الكلمه interface . بعدها يجب علينا وضع اسم الاجراء الذي سوف نستخدمه من هذه الوحده . على سيبل المثال قمنا بإنشاء داله بإسم NewReadln تشبه Readln و لكنها تسمح لك بتحديد عدد الحروف التي يمكن ادخالها .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
unit MyUnit;
interface
function 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;
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 .
شيفره برمجيه :
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.
?>
مصدر هذا الدرس [وحدهم المديرون لديهم صلاحيات معاينة هذا الرابط]
مترجم هذا الدرس : MaaSTaaR
كلمه اخيره بواسطة المترجم :
هكذا نكون قد انتهينا و لله الحمد من سلسلة دروس لغة البرمجه باسكال , آملين انكم قد استفدتم و استمتعتم من هذه السلسله , اعتذر على اي خطأ في الترجمه و دعواتكم 
