//我在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