//我在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
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
在myfun2(_)中用到了myfun1的返回数组
而myfun2的参数类型却是array of integer,不是tmyarray
i:integer;
s:tmyarray;
begin
i:=..;
s :=myfun1(i) ;
myfun2(s);
end;