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¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´
Ïà¹ØÎÊ´ð£º
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿ DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿ delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÒýÓà delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª ÊÇÄĸö£¿ windowsµÄapi£¿ ±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
ÎÊÌâÒ»¡£ÎÒÔÚ×ö¿Î³ÌÉè¼ÆµÄʱºòŪÁ˸öÖØÐÂÉèÖÃÃÜÂë´°¿Ú£¬µ«ÊÇ°Ñ PasswordChar ¸ÄΪÁË * ,ÏÖÔÚÔõô°ÑÊäÈëºÃµÄÃÜÂë±£´æµ½±íPasswordÀï(Èç¹û PasswordChar ÊÇ #0 µÄ»°ÎÒÖªµÀ)¡£ ÎÊÌâ¶þ¡£ÎÒ±£´æºÃºóÔõô´Ó±íPasswordÀï ......
HTML code: <th scope="col">¿ì¼þµ¥ºÅ</th><th scope="col">²Ù×÷ʱ¼ä</th><th scope="col">¿ì¼þÁ÷³Ì</th> </tr><t ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º 5¡¢ClsPort VOID PASCAL ClsPort(HANDLE hCom) ¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£ ²ÎÊý˵Ã÷£º ·µ»ØÖ ......