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

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

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

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

ÓÐɶÑо¿Í·£¿

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

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


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

delphiµ÷ÓÃdllÎÊÌâ,300·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödLLÎÒûÓÐÔ´Âë¡£´óСд¾ø¶ÔÕýÈ·

dllÀïÃæµÄÒ»¸öCloseCommPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......

ÈçºÎʵÏÖdelphiÌî±í

ÈçºÎʵÏÖdelphi Ìá½»±íµ¥

ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ

È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö  È»ºó µã»÷ ËÑË÷

ÎÒÏÖÔÚ¾ÍÊÇ  ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......

ÐÂÊÖ¹ØÓÚdelphi³ÌÐò´ò°üµÄÎÊÌâ

1.ÍøÉÏ˵ÓÃdelphi×Ô´øµÄInstallshield for delphi±È½ÏºÃ,µ«ÊÇÎÒµÄÊÇÍøÉÏϵİ汾,ÀïÃæÊÇ·ñÓÐÕâ¸ö¹¦ÄÜ
2.Èç¹ûÓÐÔÚÄÄÀï.
3.Èç¹ûûÓÐÔÚÄÄÀï¿ÉÏÂÔØ
4.ËûµÄÏêϸʹÓ÷½·¨,Ó¦´ò°üÄÇЩÎļþ.
ÒÔÉÏÎÊÌâÇë×ö³öʵÖÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ