delphi timer µ¹¼Æʱ - Delphi / Êý¾Ý¿âÏà¹Ø
ÎÒ×öÁËÒ»¸ö´ðÌâ³ÌÐò£¬ÏëÔÚ´ðÌâÒ³ÃæÒ»³öÏÖµÄʱºò¿ªÊ¼µ¹¼Æʱ60Ã룬ʱ¼äµ½µÄʱºò·¢³ö·äÃù£¬Ìáʾʱ¼äµ½£¬²»Ó÷äÃù£¬ÓÃÌáʾ¿òÒ²¿ÉÒÔ£¬´úÂëÔõÑùд£¬·äÃùº¯ÊýÊÇʲô£¬Ð»Ð»
Ïȶ¨Ò»¸ö±äÁ¿ ±ÈÈç i £º= 60£»
timerÉèÖÃΪ1Ã룬ȻºóÖ´ÐÐtimerʼþ£¬Ã¿´Î i:=i-1;µ±i=0ʱ¼´µ½Ê±
ÓÃTimer°É£¬Ö±½Óµ¹¼Æʱ¡£
·äÃù£¬¿ÉÒÔÖ±½ÓÓÃBeep£¨£©
Beep£¨£©º¯Êý¾Í"àª"Ò»Éù¾ÍûÁË£¬ÓÐûÓÐÉùÒô¶àЩµÄ
ÄǾÍÒª×Ô¼ºÐ´³ÌÐòÁË¡£
»òÕßÈ¥ÍøÉÏÕÒÕÒÏà¹Ø³ÌÐò£¬Óв»ÉÙ¡£
¶ÔÁË£¬»òÕßÓÃPlaySoundÀ´ÊµÏÖ¡£
uses mmSystem;
PlaySound(PChar(S_Name),0,SND_FILENAME or SND_ASYNC);
S_NameÊÇʲôÄØ
ÄãÎÒÈç¹ûÏëÒªÕâÑù¸ñʽµÄµ¹¼Æʱ£¬Ôõôд£¿
00£º00£º60
ÏëÒªµ¹¼Æʱһ·ÖÈýÊ®ÃëµÄʱºò£¬ÕâÑùдÔõôµ¹¼Æʱ
00£º01£º30
µ¹¼Æʱ¶þ¥˵µÄ¾ÍÊÇ¡£
S_NameÊÇÄã×Ô¼ºÐèÒªµÄÉùÒôÎļþÃû£¬°üÀ¨À©Õ¹ÃûÔÚÄÚ£¬±ÈÈç S1.wav
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌ⡢ƽÃæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......