如何把一个用GetMem方法得到数据，使用数组的方式进行防问？

Question

就好象C++那样：
int *k = new int[100];
k[2] = 99; 
......int *p[5] = k;
p[2][3] = 10;
......如果没法办只能这样?
var
  pData : PByte; //array(10,10)
  pGet : PByte;
begin
  pData := GetTheData();
  pGet := pData;
  
//pData[3][4] := 100;
  Inc(pGet,3 * 10 + 4);
  pGet^ := 100;
end;太麻烦了吧？

Answer 1

var
 bytearr:array of byte;
 setlength(bytearr,100);
 bytearr[0]:=10;
 ...
 bytearr[99]:=100;

Answer 2

const
 size=100;
var
 pp:pbyte;
 i:integer;
begin
 getmem(pp,size);
 try
   //zeromemory(pp,size);
   i:=0;
   while i<size do
     begin
       pp^:=10;
       memo1.lines.add(format('%d: %d',[i,pp^]));
       inc(pp);
       inc(i);
     end;
   dec(pp,size);
 finally
    freemem(pp);
 end;end;