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¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ»·Àï, ÿѻ·Ò»´Î¾ÍÅжÏÒ»´
Ïà¹ØÎÊ´ð£º
ÎÊÌâÒ»¡£ÎÒÔÚ×ö¿Î³ÌÉè¼ÆµÄʱºòŪÁ˸öÖØÐÂÉèÖÃÃÜÂë´°¿Ú£¬µ«ÊÇ°Ñ PasswordChar ¸ÄΪÁË * ,ÏÖÔÚÔõô°ÑÊäÈëºÃµÄÃÜÂë±£´æµ½±íPasswordÀï(Èç¹û PasswordChar ÊÇ #0 µÄ»°ÎÒÖªµÀ)¡£ ÎÊÌâ¶þ¡£ÎÒ±£´æºÃºóÔõô´Ó±íPasswordÀï ......
HTML code: <th scope="col">¿ì¼þµ¥ºÅ</th><th scope="col">²Ù×÷ʱ¼ä</th><th scope="col">¿ì¼þÁ÷³Ì</th> </tr><t ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£ ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
¸÷λ°ï¸ö棬ÇëÎÊÓÃdelphiÔõôÑùÔ¶³ÌÁ¬½Ó·þÎñÆ÷Êý¾Ý¿â£¬ÎÒÁ¬½Ó±¾µØµÄ³ÌÐòΪʲôÓÐ´í£¿ adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User&nbs ......
RT ÓÃDelphiµÄÔ½À´Ô½ÉÙÁË Èý¹úÒªÌø²ÛÁË£¿ Êǰ¡£¬ÂíÉϲ»¾Íµ½´«ËµÖеġ°½ðÈýÒøÊ®¡±ÁËÂ𣿠ÒýÓà Èý¹úÒªÌø²ÛÁË£¿ ¶÷ È¥ÕÒÀ¸´°É~~ËûÕýÔÚÕÐÈËÄØ£¿ºÇºÇ~~ ÕÐÆ¸delphi¹¤³Ìʦ--¹¤×÷µØµã£º± ......