还是动态数组问题

Question

var
  A : array of array of string;
  I, J : Integer;
  cvalue:string;
begin
  SetLength(A, 2);
  for I := Low(A) to High(A) do
  begin
    SetLength(A[I], 2);
    for J := Low(A[I]) to High(A[I]) do
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
      cvalue:=A[I,J]; //这样赋值出错了。不知如何解决，请高手指点
       .........
  end;
end;
真是有点难过，被这个问题困了

Answer 1

ft，你的语句在第二个循环外，J下标越界了呀
 for J := Low(A[I]) to High(A[I]) do
begin //////////////////加
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
      cvalue:=A[I,J]; //这样赋值出错了。不知如何解决，请高手指点
       .........
end;

Answer 2

var
  A : array of array of string;
  I, J : Integer;
  cvalue:string;
begin
  SetLength(A, 2);
  for I := Low(A) to High(A) do
  begin
    SetLength(A[I], 2);
    for J := Low(A[I]) to High(A[I]) do begin
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
      cvalue:=A[I,J]; //这样赋值出错了。不知如何解决，请高手指点
       .........
    end;
  end;
end;
这样还是出错啊

Answer 3

var
  A : array of array of string;
  I, J : Integer;
  cvalue:string;
begin
  SetLength(A, 2);
  for I := Low(A) to High(A) do
  begin
    SetLength(A[I], 2);
    for J := Low(A[I]) to High(A[I]) do begin
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
      cvalue:=A[I,J]; //这样赋值出错了。不知如何解决，请高手指点
    end;
  end;
end;这样会出错？？？？？？？？？？？？？奇怪了，，，我刚试，不会

Answer 4

TO:ypnet(高原)
加begin后没问题啊，我调试都通过了。