请教如何在函数中传递数组

Question

function Test_NMax(Test_NMax_TestName : array[0..NMAX] OF string;):integer ;
//测试数组最大数,即如(所选数据表，数据字段)总数
var
  i:integer;
begin  for i := 0 to NMAX do
  begin
    If Test_NMax_TestName[i] = '' Then Exit;
  end;
。
。
。
。
。

Answer 1

type testarray=array[0..NMAX] of string
function Test_NMax(Test_NMax_TestName : testarray):integer ;

Answer 2

type TDynamicCharArray = array of Char;
function Find(A: TDynamicCharArray): Integer;

Answer 3

例子：
procedure Clear(var A: array of Real);
var
  I: Integer;
begin
  for I := 0 to High(A) do A[I] := 0;
end;
function Sum(const A: array of Real): Real;
var
  I: Integer;
  S: Real;
begin
  S := 0;
  for I := 0 to High(A) do S := S + A[I];
  Sum := S;
end;

Answer 4

在delphi帮助里找Open array parameters主题自己看看

Answer 5

procedure abc(p :Pchar);也可以
调用的时候
var
  a :array [0..100] of char;
begin
  abc(PChar(a));
end;