![]() |
#2
yeye552011-02-26 18:40
|
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;