Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

delphi 數據類ÐÍ

delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:

var
arr:array ['A'..'Z'] of Char;

Óü¯ºÏ¸ã¶¨

Ôõ麼È¥運ËãÄØ£¿inc() ......

DelphiÖеÄͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇsql server2000£¬¶¨ÒåÓÐ×Ö¶ÎѧºÅ£¨¹Ø¼ü×Ö£©£¬¡­¡­¡­¡­¡­¡­£¬ÕÕƬ£¨varchar(100))£¬ÒÔϲ¿·Ö´úÂ룺
procedure TfrmStuInfoMng.Label10Click(Sender: TObject);
begin
  if OpenPictureDialog1.Exec ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ