وقت تأخير دلفي

الموقع الحالي: Delphi Garden ← مقالات المهارات ← تجربة البرمجة ← Delphi Delay

وقت تأخير دلفي

التاريخ: 31 أغسطس 2004 المؤلف:

تأخير الإجراء (MSECs: عدد صحيح) ؛

var

FirstTickCount: Longint ؛

يبدأ

FirstTickCount: = getTickCount ؛

يكرر

Application.ProcessMessages ؛

حتى ((getTickCount-FirsttickCount)> = longint (msecs)) ؛

نهاية؛

(المصدر: www.delphhibbs.com)