Functoin返回的问题(0分)

能不能定义一个Function可以返回数组，
有什么好方法啊，急！！！啊

我没分了，希望大家答复一下啦，：（

procedure myprocedure(var a:array of type);
~~~

function farray(...): array of integer;
var
fa:array[0..5] of integer;
begin
...
result := fa;
end;
or
type NewRet=array[0..5] of integer;
function farray(...): NewRet;
var
fa:NewRet;
begin
...
fa[0] := ...;
...
result := fa;
end;

Have a try,i am not sure the code is can run.

接受答案了.