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ÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
ÎÒÓõÄÊÇsql server2000£¬¶¨ÒåÓÐ×Ö¶ÎѧºÅ£¨¹Ø¼ü×Ö£©£¬¡¡¡¡¡¡£¬ÕÕƬ£¨varchar(100))£¬ÒÔϲ¿·Ö´úÂ룺
procedure TfrmStuInfoMng.Label10Click(Sender: TObject);
begin
if OpenPictureDialog1.Exec ......