delphi动态数组指针问题

Question

就一个button事件
procedure TForm1.btn7Click(Sender: TObject);
Type
  TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
  Pint = ^TMyArr;
var
  PArr: Pint; {动态数组指针变量}
  i,j,k,ic,jc,kc: Integer;
begin
  Memo1.Lines.Clear;
  {用作维数的变量}
  ic := 2;
  jc := 3;
  kc := 4;
  {分配内存; 按说动态数组还需要 8 个管理字节, 我不知道 Delphi 是怎么协调的}
  GetMem(PArr, ic * jc * kc * SizeOf(Integer));
  {设置数组}
  SetLength(PArr^, ic,jc,kc);
  {赋值}
  for i := 0 to ic - 1 do
    for j := 0 to jc - 1 do
      for k := 0 to kc - 1 do
        PArr^[i][j][k] := Random(100);
  {取值}
  Memo1.Clear;
  for i := 0 to ic - 1 do
    for j := 0 to jc - 1 do
      for k := 0 to kc - 1 do
        Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, PArr^[i][j][k]]));
        //Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, TMyArr(PArr)[i][j][k]]));
        {按理说这种访问方法也对，可是这中方法在编译的时候能通的过去，在运行的就报错了}
  {自己分配的内存要负责释放}
  FreeMem(PArr);
end;
到setlength那个地方就出错，大家看看是怎么回事

Answer 1

动态数组你执行GetMem做什么
SetLength(PArr^, ic,jc,kc);不就行了

Answer 2

动态数组是DELPHI自管理类型，你用GetMem做什么，用SetLength，把GetMem(PArr, ic * jc * kc * SizeOf(Integer));去掉。

Answer 3

 GetMem(PArr, ic * jc * kc * SizeOf(Integer));//一般你动态数组申请的内存块非常大的时候才用GetMem
  {设置数组}
  SetLength(PArr^, ic,jc,kc);//这里setlength 照样是分配内存，这样就和上面重复了。
去掉任意1个~~~~~~~~~

Answer 4

不行啊，我去掉getmem，还是照样报错，还是那个错误啊，，，，，怎么回事？？？？

Answer 5

setlength不能这么用，应该这样使用setlengthprocedure TForm1.Button1Click(Sender: TObject);
Type
  TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
var
  Arr:TMyArr;
  ic,jc,kc: Integer;
begin
  ic := 2;
  jc := 3;
  kc := 4;
  SetLength(Arr, ic,jc,kc);
end;

Answer 6

不是啊，我就是为了要用指针这个东西。不用指针我知道怎么弄.....就看我那个button事件吧。求助大侠们了

Answer 7

不用指针怎么就不能弄，Arr:TMyArr;使用Arr一样能用，比你那指针使用起来明了多了

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
Type
  TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
var
  Arr:TMyArr;
  i,j,k,ic,jc,kc: Integer;
begin
  Memo1.Lines.Clear;
  {用作维数的变量}
  ic := 2;
  jc := 3;
  kc := 4;  {设置数组}
  SetLength(arr, ic,jc,kc);
  {赋值}
  for i := 0 to ic - 1 do
  for j := 0 to jc - 1 do
  for k := 0 to kc - 1 do
  arr[i][j][k] := Random(100);
  {取值}
  Memo1.Clear;
  for i := 0 to ic - 1 do
  for j := 0 to jc - 1 do
  for k := 0 to kc - 1 do
  Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, arr[i][j][k]]));end;

Answer 9

要用指针，就要根据指针位置去读取SizeOf(integer)长度的值给你个参考，或许能给你点启发
http://www.cnblogs.com/del/archive/2008/03/27/1125778.html