如何动态设定一个STRING类型的二维数组长度

Question

这个意思：A[0..x,1..5]中的X如何在程序里动态设定！谢谢

Answer 1

var
  StringArray: array of array[1..5] of string;
  x : integer;
begin
  x := 5;
  SetLength(StringArray, x);
  // 访问的时候用分开的方括号
  StringArray[1][1] := 'delphi';
end;

Answer 2

sweetgun(阿吉) 兄弟的办法不行啊，我试了一下是类型冲突！！

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  StringArray: array of array[1..5] of string;
  x : integer;
  i,j:integer;
begin
  x := 5;   Memo1.Clear ;
  SetLength(StringArray, x);
  StringArray[1][1] := 'delphi';
  for i:=low(StringArray)to high(StringArray) do
  for j:=low(StringArray[i]) to high(StringArray[i]) do
   Memo1.Lines.Add(format('%d %d %s',[i,j,StringArray[i][j]]));
end;

Answer 4

sweetgun(阿吉)，不好意思，昨天太晚了我点晕，你的代码是对的！！