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£¿ ±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£ begin case wParam of WM_KEYDOWN: fEatKeystroke := (p.vkCode = VK_RETURN); & ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure TForm2.Button1Click(Sender: TObject); var i:integer; begin SetLength(a,200); for I := 0 to 199 do begin A[i]:=Tedit.Create(self); with A[i] do &n ......
Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º ....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+', ......