التعامل مع التوقيت والساعة في دلفي Date & Time

[delphi4ever]

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

هنا توضع جميع الأكواد مع ملفاتها المصدرية والشرح الخاصة بالتوقيت والساعة فقط ، لذا من يرغب بالمشاركة عليه الإلتزام بما يلي:
1- وضع شرح مفصل للموضوع.
2- وضع ملف مصدري يحتوي على الشرح(Sources-Codes)

هذه بعض الأكواد (Souces-Codes) البسيطة للتعامل مع التوقيت والساعة في دلفي.

1- أمثلة بسيطة عن إسترجاع التوقيت والساعة في دلفي:
الأدوات المستعملة:
* - مكون TLabel و مكون TButton
أي بعد الضغط على المكون TButton تظهر النتيجة في المكون TLabel.

لإظهار الســاعة: نقوم بالضغط مرتين على المكون TButton ونكتب ما يلي بعد Begin

كود :

Label1.Caption := TimeToStr(Time) ;

1-2 لإظهار التوقيت: نفس الإجراءات

كود :

Labe2.caption:=DateToStr(Date);

1-3 لإظهار التوقيت والساعة: نفس الإجراءات

كود :

Label3.Caption:=DateTimeToStr(Now);

ملاحظة: في حالة إستعمال مكون Tbutton من أجل الضغط عليه والحصول على النتيجة فإن النتيجة ستكون عبارة عن نص يحتوي على التوقيت أو الساعة أو كلاهما معا، مثال: 12:45:25 أو 07/02/2008
أو 07/01/2008 أو 07/01/2008 12:45:25
ومن أجل الحصول على النتائج السابق ذكرها بطريقة تتماشى مع تغيرات الساعة والتوقيت اليومي نقوم بكتابة نفس الكود لكن نقوم باستعمال المكون Timer الموجود في الزاوية System
يمكننا هذا المكون من رؤية التغيرات التي تحدث على التوقيت والساعة كتغير الثواني والدقائق والساعات.

هذا مثال بسيط يمكن لأي مستعمل دلفي التطرق إليه وسنوافيكم لاحقا بالباقي عـــــلما أنه لازال الكثيـــــــر.