الموقع الحالي: Delphi Garden ← مقالات المهارات ← تجربة البرمجة ← Delphi Delay
وقت تأخير دلفي
التاريخ: 31 أغسطس 2004 المؤلف:
تأخير الإجراء (MSECs: عدد صحيح) ؛
var
FirstTickCount: Longint ؛
يبدأ
FirstTickCount: = getTickCount ؛
يكرر
Application.ProcessMessages ؛
حتى ((getTickCount-FirsttickCount)> = longint (msecs)) ؛
نهاية؛
(المصدر: www.delphhibbs.com)