数组内部操作

应用：给动态数组内部添加一个元素的过程（可引申为开放数组做为参数）

算法：1:首先给数组长度加1

　　　2:在数组最后一个索引位置上添加对应元素

代码：

type
  TOneArray = array of Integer;

procedure AddArrayItem(var Arr: TOneArray; x: Integer);
begin
  SetLength(Arr,Length(Arr)+1);
  Arr[High(Arr)] := x;
end;

注意:参数生命中的var,这里引申出一个知识点；

在过程或函数生命过程中，var,const,无  三者的不同；

首先讨论有var和无var的区别，在参数传入过程中，如果有var,在该方法会对传入的参数进行修改，即此时传入的是该参数的地址。在无var的情况下，该方法不会对传入的参数产生影响，可视为此时传递的是值，不是地址。

const,在传递常量时用const，在多数情况下，const可视为与无var等同

在上一个例子中，由于方法需要对传递的数组进行修改，所以参数声明过程中必须加var。