二维数组作为参数传递的问题 ( 积分: 30 )

哪位大虾告诉我在函数中怎么调用二维数组，另外在函数调用之后怎么将一个数组传回去
我写了个函数，但只能调用一维数组，而且返回值是一个double数。
function tform1.trans(arr1:array of double;arr2:array of double):double;
var
i: integer;
j: double;
begin
j:=0;
for i:=0 to length(arr1) do
begin
j:=j+arr1*arr2;
arr2:=1;
end;
result:=j;
end;
哪位大虾帮忙改改，如果调用二维数组，括号中应该怎么写？返回一个数组呢？

哪位大虾告诉我在函数中怎么调用二维数组，另外在函数调用之后怎么将一个数组传回去
我写了个函数，但只能调用一维数组，而且返回值是一个double数。
function tform1.trans(arr1:array of double;arr2:array of double):double;
var
i: integer;
j: double;
begin
j:=0;
for i:=0 to length(arr1) do
begin
j:=j+arr1*arr2;
arr2:=1;
end;
result:=j;
end;
哪位大虾帮忙改改，如果调用二维数组，括号中应该怎么写？返回一个数组呢？

type
TDoubleArray = array of Double;
TDoubleArray2 = array of array of Double;

function Trans(A: array of Double
B: TDoubleArray2): TDoubleArray;
begin
SetLength(Result, 5);
Result[0] := A[0] + 1.1;
Result[1] := A[1] + 1.2;
Result[2] := A[2] + 1.3;
Result[3] := A[3] + 1.4;
Result[4] := A[4] + 1.5;
end;

多谢多谢，终于解决了。