注册 登录
编程论坛 Delphi论坛

TMemoryStream read 的怪现象,请高手解惑

meisbrother 发布于 2011-02-24 22:20, 1290 次点击
procedure TForm2.Button1Click(Sender: TObject);
var
  memFIlesour: TMemoryStream;
  bb: array of Byte;
begin
  memFIlesour := TMemoryStream.Create;
  memFIlesour.LoadFromFile(Edit1.Text);

  ShowMessage(IntToStr(memFIlesour.Size));
  SetLength(bb, 4);
  memFIlesour.Read(bb, 4);       //为什么出错,地址错误,而改为2就好了。还有,如果用静态数组,也是4个长度就不会出错,用动态的要多出2个字节就不出错。
end;
1 回复
#2
yeye552011-02-26 18:40
memFIlesour.Read(bb[0], 4);
1