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
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
¶¨Òå±äÁ¿s,sqlΪstringÀàÐÍ£¬sΪº¯Êý²ÎÊý£¬sql£º='select field1 from table1 where'+s;ÔËÐÐʱs¸³ÖµÎªid>7»òÕßid<7¡¢id=7,µ«ÊÇÔËÐÐʱ×ÜÊdzö´í£¬Çë¸÷λ°ïÎÒ¸Ä´í£¬¶àл£¡
showMessage(sql)Ï¿´¿´
sql£º='sel ......