请问怎么动态分配内存. 在线等待！ 两个十分感谢！

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  AValue: string;
begin
  AValue := '0';
  if InputQuery('caption', 'input', AValue) then
  begin
    i := StrToIntDef(AValue, 0);
   //然后我想在这里建一个数组 array[i] of integer;
   //应该怎么实现这样的功能?
  end;
end;

Answer 1

x:array of integer;
SetLength(x,i);

Answer 2

var
  ArrayName : array of integer;
SetLength(ArrayName,aValue);

Answer 3

var a : array of integer
begin
a:=setlength(a,i);
end;