读无类型文件问题,因为事先不知文件的大小,所以用动态数组较方便,
代码如下:var
F: file;
buffer: array of byte;
begin
assignfile(F,'abc.dat');
Reset(F,1);
setlength(buffer,Filesize(F));
blockRead(F,buffer,sizeof(buffer));
closefile(F);
end;调试时却发现数据总是读不出来,buffer里始终空空如也,而若是把buffer由动态数组换成一个静态数组就可以读出来了。请问问题在哪?应该如何解决?非常感谢!
代码如下:var
F: file;
buffer: array of byte;
begin
assignfile(F,'abc.dat');
Reset(F,1);
setlength(buffer,Filesize(F));
blockRead(F,buffer,sizeof(buffer));
closefile(F);
end;调试时却发现数据总是读不出来,buffer里始终空空如也,而若是把buffer由动态数组换成一个静态数组就可以读出来了。请问问题在哪?应该如何解决?非常感谢!
解决方案 »
- delphi程序提示找不到**.dcu文件并且项目中搜索也没有!
- Delphi中实现数据同步(100分求解答!)
- 图文混排数据库查询问题?解决立即给分,急!!急
- 各位兄弟,讨论一下哪个杀毒软件好用些?????
- 尋找打開UG\PROE\SOILDWORKS文件的方法,急用!!!
- 如何将txt文件中的内容加入dbgrideh中列的picklist?
- 高分求教一个日期的计算问题,急
- 如何将listview中两个Listitem互换——请高手指点
- 哪位大侠帮忙看看代码该怎么写,急,先谢谢了
- 有哪位高手知道虚拟桌面的原理???
- 各位谁能讲一下MTS、MIDAS及COM间的关系?能给一个例子吗?
- 看来不放血是没有人来了!!!!!!!!
->
buffer: array of char;
上面改動不是很必要, 但不知道你是如何處理讀出來的, 所以, 也可試下!blockRead(F,buffer,Filesize(F));