分配一段内存后，怎样才可以当作一数组操作，形式如何？

Question

procedure TForm1.Button3Click(Sender: TObject);
var
  lpData: THandle;
begin  lpData:= GlobalAlloc(GMEM_FIXED,400);
end;lpData该怎么用啊

Answer 1

pbyte(ipdata)^=1;
ipdata:=ipdata+1;

Answer 2

pbyte(ipdata)^=1;
//算是赋值吗？是不是值的类型没有限制呢？ipdata:=ipdata+1;
//这算是地址+1吗？

Answer 3

先定义一个数组，再定义一个数组指针
ｔｙｐｅ
　MA:array of sring;
var
  M_MA :^MA;
begin
  m_MA:= MapViewofFile(lpData, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  CopyMemory(m_MA, MA, Size);
end;

Answer 4

  lpData:= GlobalAlloc(GMEM_FIXED,400);
你定义的时候也没有定义指针类型呀
ipdata:=ipdata+1;
是这个无类型指针加一

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
type i=array [0..400] of integer;
var
  p:^i;
  lpData: THandle;
begin
  lpData:= GlobalAlloc(GMEM_FIXED,400);
  p:=GlobalLock(lpData);
  ///使用  GlobalUnlock(lpData);
  GlobalFree(lpData);
  lpData:=NULL;
end;