如何将数组作为一个参数传递到函数或者过程中

Question

如何将数组作为一个参数传递到函数或者过程中

Answer 1

type
  TAR = array of integer;procedure (AR: TAR);
beginend;

Answer 2

function Sum (const A: array of Integer): Integer;
var
  I:Integer;
begin
  Result := 0;
  for I := Low(A) to High(A) do
  begin
    Result := Result + A[I];
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  List:array [1..10] of Integer;
  X,I: Integer;
begin
  for I := Low(List) to High(List) do
  begin
    List [I] := I * 2;
    X := Sum (List);
  end;
  Self.Caption := IntToStr(X);
end;