delphi procedure ÔËÐÐÖÐ;ÈçºÎÖÕÖ¹ ?
ÓÐÒ»¸ö½Ð Taking() µÄprocedure, Óжþ¸ö°´Å¥, ÎÊÌâ, µãµÚÒ»¸ö°´Å¥µÄ´úÂëÊǵ÷ÓÃTaking()µÄ, Ôõô²ÅÄܵãµÚ¶þ¸ö°´Å¥°ÑTaking()ÖÕÖ¹»ò³·Ïú
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit RT£¬¾ÍÊÇÕâÑù£¬µÚÒ»¸ö°´Å¥ÅжÏÖµ£¬µÚ¶þ¸ö°´Å¥µÄʼþ°ÑÖµÉèÖÃΪfalseÒýÓà ¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit ÎÊÌâÕâ¸ö¹ý³ÌÒªÖ´Ðж೤ʱ¼ä£¬²ÅÄܸÐÖªÄãÕâ¸ö±êÖ¾!? ¶øÇÒµÚ¶þ¸ö°´Å¥µÄÏûÏ¢´«µÝ¸øÏûÏ¢¶ÓÁÐÒ²ÊÇÔÚÕâ¸ö¹ý³ÌºóµÄÊ£¬ Â¥Ö÷ÄãÕâ¸ö¹ý³Ìû˵Çå³þ£¬Î޽⣡ Èç¹ûÑ»·µÄ»°ÔÚÀïÃæ¼Ó Delphi(Pascal) code: Application.ProcessMessages Exit; proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´Î°É so goodÒýÓà proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´Î°É Ϊʲô²»¿ÉÒÔ£¿ ¿ÉÒÔÓÃwhileÌæ´úfor »òÕßÔÚforÖеÚÒ»ÐÐÏÈÅжϴËÖµ£¬Èç²»Âú×㣬ÔòÍ˳öÒýÓà proceduce TakingÊÇÒ»¸öforÑ»·×öijЩÊÂ, ËäÈ»¿ÉÒÔÓÃExitÍ˳ö, Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº s = unicode("²âÊÔ", "gb2312") s = u'\u6d4b\u8bd5' print s ²âÊÔ ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿ ÕÒµ½¸ö·½·¨ ......
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÔÚÏÂÃæµÄ´úÂëÖпÉÒÔʵÏÖEdit1.TextÖÐÊäÈë6¸ö×Öĸ»òÊý×ÖʱEdit2.SetFocus,ÄÇôÎÒÏëÈÃEdit2.textÖÐÊäÈë6¸ö×ÖĸʱʵÏÖEdit3»ñµÃ½¹µã£¬ÓÐûÓмòµ¥Ò»µãµÄ·½·¨£¬Ð»Ð»´ó¼ÒÁË£¡£¡£¡ procedure TForm2.Edit1Change(Sen ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º 5¡¢ClsPort VOID PASCAL ClsPort(HANDLE hCom) ¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£ ²ÎÊý˵Ã÷£º ·µ»ØÖ ......