在delphi中怎么访问一个指向数组的指针？

Question

如
A: Pointer;
B: array of string;A:=@B;怎用A得到数组中的值啊？

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
type
  TB = array of array of string;
var
  A: Pointer;
  B: TB;
  I, J: Integer;
begin
  SetLength(B, 4);
  for I := 0 to Length(B) - 1 do
    SetLength(B[I], 10);
  for I := 0 to 3 do
    for J := 0 to 9 do
      B[I, J] := IntToStr(I * J);
  A := B;
  ShowMessage(TB(A)[3, 3]);  ShowMessage(IntToStr(High(TB(A)) + 1)); // 行数
  ShowMessage(IntToStr(High(TB(A)[0]) + 1)); // 列数
end;