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

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 for PHP

ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£

ûÓÐÑо¿¹ý£¬ºÇºÇ

ÓÐɶÑо¿Í·£¿

ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡

ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿


ÒòΪ²»ÊìϤDelphi £ ......

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

delphi adoÁ¬½ÓÔ¶³Ì·þÎñÆ÷Êý¾Ý¿âÎÊÌâ

¸÷λ°ï¸ö棬ÇëÎÊÓÃdelphiÔõôÑùÔ¶³ÌÁ¬½Ó·þÎñÆ÷Êý¾Ý¿â£¬ÎÒÁ¬½Ó±¾µØµÄ³ÌÐòΪʲôÓÐ´í£¿

adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist  Security  Info=True;User&nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ