函数参数问题

Question

procedure person.ChageArray(var a: array of integer）;
  var
    m: integer;
  begin
    m := Length(a);
    ShowMessage(IntToStr(m));
    m := m + 10;
    SetLength(a, m); //这行无法编译通过；
    a[0] := 10;
  end;
我有什么办法在函数改变一个动态数组的宽度么？

Answer 1

把类型定义写到外面试试
即定义
  Type  MyArr = Arrary of integer;procedure person.ChageArray(var a: MyArr);

Answer 2

可以
var
  artest : array of char;
begin
  setlength(artest,4);
end;