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µÄ²ÎÊý¡£ Ò²Ö»ÄÜÕâÑùÁË£¬Ð»Ð»
Ïà¹ØÎÊ´ð£º
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ ÔõôûÈËÀíÎÒѽ ·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^* SQL creat table TableName(ID Counter Primary Key,FieldName varchar(20)) ADOQue ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£ ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ * ** *** **** Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX procedure TForm1.Button2Click(Sender: TObject); var arr: array of Integer; i,j: I ......