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 £ ......
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
ÏÂÔØÁË×îеÄdelphi 2010,°²×°£¬ ×îа汾£¬°ïÖúÐèÒªµ¥¶À°²×°£¬°ïÖúÎļþ×öµÄ±ÈÒÔǰºÃЩ ÔÚÎÒ¸öÈ˵çÄÔÉϳɹ¦°²×°£¬Ê¹ÓÃÕý³££» ÓùâÅ̽«°²×°Îļþ¿½µ½°ì¹«ÊÒ£¬°²×°£¬Ò»ÇÐÕý³££» °²×°Íê³Éºó£¬Æô¶¯delphi 201 ......
1.ÍøÉÏ˵ÓÃdelphi×Ô´øµÄInstallshield for delphi±È½ÏºÃ,µ«ÊÇÎÒµÄÊÇÍøÉÏϵİ汾,ÀïÃæÊÇ·ñÓÐÕâ¸ö¹¦ÄÜ 2.Èç¹ûÓÐÔÚÄÄÀï. 3.Èç¹ûûÓÐÔÚÄÄÀï¿ÉÏÂÔØ 4.ËûµÄÏêϸʹÓ÷½·¨,Ó¦´ò°üÄÇЩÎļþ. ÒÔÉÏÎÊÌâÇë×ö³öʵÖÊ ......
const WM_REFRESH_USERS = WM_USER + 330; type TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem); PCmdRec = ^TCmdRec; TCmdRec = record &nbs ......