var
Stream: TMemoryStream;
buffer:array of byte;
size:integer;
begin
stream:=tmemorystream.Create;
stream.LoadFromFile('c:\dd.txt');
size:=stream.size;
setlength(buffer,size);
stream.read(buffer,size);
stream.Free;
strstream.Free;
end;调试时buffer开始长度为11,后经read方法后不是11,然后是程序报错。
我用的是dephi7,难道是bug?
Stream: TMemoryStream;
buffer:array of byte;
size:integer;
begin
stream:=tmemorystream.Create;
stream.LoadFromFile('c:\dd.txt');
size:=stream.size;
setlength(buffer,size);
stream.read(buffer,size);
stream.Free;
strstream.Free;
end;调试时buffer开始长度为11,后经read方法后不是11,然后是程序报错。
我用的是dephi7,难道是bug?
解决方案 »
- 这个是什么原因?Incompatible types: 'TCaption' and 'PChar'
- decimal float 两种有什么区别
- 我跟小数位对上了,,,,,,,,,,,,,
- 请教一个局域网ADO连接的问题
- 还是DELPHI中动态菜单问题!
- 关于DLL文件的问题,大虾请进!!!!
- 关于数据类型?
- 求助:颜色存到表格中
- “master record missing”是什么意思啊?
- 《Delphi淡手辑略 之 数据库篇》:数据集解构成树(过程)
- 怎样在delphi中调用chm文件的相关部分?
- 如何在线程中通过seversocket(stNonBlocking方式)收发数据?(最好有例子)
->
stream.read(buffer[0],size);