Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

delphi Êý×é¸úfor

ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****

Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ