delphi定义二维数组

procedure TForm1.Button1Click(Sender: TObject);
var
  A :array of array of string;
  I,J:Integer;
begin
  SetLength(A,10);
  for I:=Low(A)to High(A)do
  begin
    SetLength(A[I],I);
    for J:=Low(A[I])to High(A[I])do
          A[I,J]:=IntToStr(I)+ ','+ IntToStr(J)+'   ';
  end;

  //print the data of arrays
  for I:=low(A) to high(A) do
  begin
    for j:=low(A[I]) to high(A[I]) do
      memo1.Lines.Add(A[I,J]);
  end;//end for i
end;