Delphi之动态数组参数

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

2、在Unit1.pas源代码文件的implementation区定义一个接收动态数组耩撞苏粪参数的过程，代码如下：procedure sumv(v:array of integ髫潋啜缅er);vari:integer;sum:integer;begin sum:=0;for i:=Low(v) to High(v) dobegin 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按钮，弹出对话框，内容为第二次传入数组之和