Rover
22-12-2008, 02:28 PM
السلام عليكم و رحمة الله
درس ممتاز بارك الله بكم و نفع بكم المسلمين ...
---- بالنسبة للتوابع أو الدوال ( Functions ) :
يجب التنبيه إلى وجود متحول أفتراضي مترافق مع تكوين الداله
و هو المتحول : Result و الذي يمثل نتيجة التابع ..
أما نوعه فيتوافق مع خرج التابع ..
---- في الأمثله المكتوبة في الدرس :
- يجب معالجة الأستثناءات المتعلقة بأدخال القيمة في مربعات الأعداد
- ماذا لو أدخل المستخدم نص بدل الأرقام :: عندها سيحدث أستثناء عند StrToInt
و يمكن تجاوز ذلك بكتابة الكود التالي في حدث Keypress للمربعات النصية للأجبار و تنبيه المستخدم على أدخال أرقام فقط :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #13,#8 ]) then
begin
Key := #0;
beep;
end;
end;
--------------------
شكراً للقائمين على هذه الدورة, التي تعتبر فريدة من نوعها في لغة دلفي ...
نتمنى وجود قسم خاص بمناقشة دروس الدورة و التعمق بها ...
بالتوفيق أن شاء الله ...
درس ممتاز بارك الله بكم و نفع بكم المسلمين ...
---- بالنسبة للتوابع أو الدوال ( Functions ) :
يجب التنبيه إلى وجود متحول أفتراضي مترافق مع تكوين الداله
و هو المتحول : Result و الذي يمثل نتيجة التابع ..
أما نوعه فيتوافق مع خرج التابع ..
---- في الأمثله المكتوبة في الدرس :
- يجب معالجة الأستثناءات المتعلقة بأدخال القيمة في مربعات الأعداد
- ماذا لو أدخل المستخدم نص بدل الأرقام :: عندها سيحدث أستثناء عند StrToInt
و يمكن تجاوز ذلك بكتابة الكود التالي في حدث Keypress للمربعات النصية للأجبار و تنبيه المستخدم على أدخال أرقام فقط :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #13,#8 ]) then
begin
Key := #0;
beep;
end;
end;
--------------------
شكراً للقائمين على هذه الدورة, التي تعتبر فريدة من نوعها في لغة دلفي ...
نتمنى وجود قسم خاص بمناقشة دروس الدورة و التعمق بها ...
بالتوفيق أن شاء الله ...