حول الدرس الثالث من دورة تعليم دلفي

[Rover]

السلام عليكم و رحمة الله

درس ممتاز بارك الله بكم و نفع بكم المسلمين ...

---- بالنسبة للتوابع أو الدوال ( Functions ) :

يجب التنبيه إلى وجود متحول أفتراضي مترافق مع تكوين الداله

و هو المتحول : Result و الذي يمثل نتيجة التابع ..

أما نوعه فيتوافق مع خرج التابع ..

---- في الأمثله المكتوبة في الدرس :

- يجب معالجة الأستثناءات المتعلقة بأدخال القيمة في مربعات الأعداد

- ماذا لو أدخل المستخدم نص بدل الأرقام :: عندها سيحدث أستثناء عند StrToInt

و يمكن تجاوز ذلك بكتابة الكود التالي في حدث Keypress للمربعات النصية للأجبار و تنبيه المستخدم على أدخال أرقام فقط :

PHP كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If not (Key in ['0'..'9', #13,#8 ]) then
 begin
 Key := #0;
 beep;
 end;
end; 


--------------------

شكراً للقائمين على هذه الدورة, التي تعتبر فريدة من نوعها في لغة دلفي ...


نتمنى وجود قسم خاص بمناقشة دروس الدورة و التعمق بها ...

بالتوفيق أن شاء الله ...