[أبوبكر سويدان]

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

في هذا الدرس نتعرف على كيفية عرض التاريخ والوقت على Lable.. نبدأ على بركة الله..

1. ننشيء مشروعاً جديداً في لازاروس ، ونحفظه.
2. على الـForm نضع Lable وCommandButton
3. نغير بعض الخصائص حتى يكون الشكل النهائي مقبولاً.

   

في حدث النقر المفرد للـButton نكتب:

كود :

lblShowDateTime.Caption:= DateTimeToStr(Now);

حيث lblShowDateTime هو الاسم البرمجي للـLable. بعد ذلك نشغل المشروع بالضغط على مفتاح F9، ونجرب

-------

• لعرض الوقت فقط : نرسل القيمة Time إلى الدالة TimeToStr.
  
• لعرض التاريخ فقط : نرسل القيمة Date إلى الدالة DateToStr.
  

للمزيد من المعلومات عن الاجراءات والدوال الخاصة بالوقت:
http://www.freepascal.org/docs-html/rtl/...tines.html