delphi ×Ô¶¨ÒåÀàÐÍÓëÀàÐÍÆ¥Åä
//ÎÒÔÚtype¶¨ÒåÒ»¸ötmyarray type tmyarray= array[0..255] of integer; ... function myfun1(a:integer):tmyarray; function myfun2(pt:array of integer):boolean; //myfun2 ÒªÓõ½ÆäËüµÄ²»ÊÇtmyarrayµÄ³¡ºÏ£¬ËùÒÔpt ûÓÐÓÃtmyarrayÀàÐÍ£» //µ±È»°Ñtmyarrayд³Éarray of integerÒ²¿ÉÒÔ£¬µ«ÊÇËÙ¶ÈÓÐÓ°Ïì¡£ //Èç¹û²»ÓÃÖØÔØ£¬²»¸Ätmyarray,»¹ÓÐÆäËü·½·¨Âð produce ... a:integer; flag:boolean; begin .. flag:=myfun2(myfun1(a));//ÈçºÎÔÚÕâÀïʵÏÖÆ¥Åä end
Ö±½Ó°ÑÄãÏëÒªµÄÊý×鶨Òå³ÉÈ«¾Ö±äÁ¿ÊDz»ÊǸüºÃÒ»µãÄØ. ²»ÊÇ£¬ÎÒÏëÒªµÄÊÇÒ»¸öº¯Êýmyfun1£¨£©£ºtmyarray ÔÚmyfun2(_)ÖÐÓõ½ÁËmyfun1µÄ·µ»ØÊý×é ¶ømyfun2µÄ²ÎÊýÀàÐÍÈ´ÊÇarray of integer£¬²»ÊÇtmyarray ²»ÓÃÖØÔØ£¬²»ÓÃÈ«¾Ö±äÁ¿£¬ÓÖ²»Óö¯Ì¬Êý×飬ºÃÏóûÓа취ÁËŶ.ÊÇÎҵϰÎÒ»áÑ¡ÔñÓÃÈ«¾Ö±äÁ¿£¬ºÇºÇ var i:integer; s:tmyarray; begin i:=..; s :=myfun1(i) ; myfun2(s); end;ÒýÓà ¶¨ÒåÒ»¸ö¶¯Ì¬×飬½«myfun1µÄ½á¹ûCOPYµ½¸ÃÊý×éÖУ¬½»ÓøÃÊý×é×÷Ϊmyfun2µÄ²ÎÊý¡£ Ò²Ö»ÄÜÕâÑùÁË£¬Ð»Ð»
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£ ¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£ ûÓÐÑо¿¹ý£¬ºÇºÇ ÓÐɶÑо¿Í·£¿ ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡ ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿ ÒòΪ²»ÊìϤDelphi £ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£ ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll Õâ¸ödLLÎÒûÓÐÔ´Âë¡£´óСд¾ø¶ÔÕýÈ· dllÀïÃæµÄÒ»¸öCloseCommPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º 5¡¢CloseCommPort VOID PASCAL CloseCommPort(HANDLE hCom) ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥ ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷ ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......