Delphi之动态数组参数

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮。

2、在Unit1.pas源代码文件的implementation区定义一个接收动态数组参数的过程，代码如下：

procedure sumv(v:array of integer);

var

 i:integer;

 sum:integer;

begin

  sum:=0;

 for i:=Low(v) to High(v) do

 begin

   sum:=sum+v[i];

 end;

 showMessage(inttostr(sum));

end;

3、双击Button1按钮，进入OnClick事件方法，写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

var

  av:array of integer;

  i:integer;

begin

  SetLength(av,10);

  for i:=Low(av) to High(av) do

  begin

    av[i]:=i;

  end;

  sumv(av);

end;

4、F9运行程序，点击Button1按钮，弹出对话框，内容为传入数组之和

5、还有另一种调用上面过程的写法，双击Button1按钮进入事件方法，改写代码如下：

procedure TForm1.Button1Click(Sender: TObject);

begin

  sumv([1,2,3,4]);

end;

6、F9运行程序，点击Button1按钮，弹出对话框，内容为第二次传入数组之和