简单,不过我不会。

silicon_crystal 2002-11-08 05:21:26
procedure TForm1.Button1Click(Sender: TObject);
var
test:array of byte;
numread,count:integer;
f:file;
begin
assignfile(f,'head.dat');
reset(f,1);
setlength(test,10);
blockRead(f,test,10,numread);
closefile(f);
numread:=0;
end;

整个程序就这么多句话。却要出错。帮帮忙吧
...全文
70 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
findya 2002-11-08
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
test: array[0..10] of byte;
numread,count: integer;
f: File;
begin
AssignFile(f, 'head.dat');
Reset(f, 1);
BlockRead(f, test, SizeOf(test), numread);
CloseFile(f);
numread := 0;
end;

这样也行
silicon_crystal 2002-11-08
  • 打赏
  • 举报
回复
哦还有。我需要释放内存吗?
silicon_crystal 2002-11-08
  • 打赏
  • 举报
回复
to: zwjchina(蒲石)
谢了。哈。原来如此,能给我说说为什么吗?我不写那个[0]程序也通过了。
随便给我说说我怎么给分
ddvboy 2002-11-08
  • 打赏
  • 举报
回复
第一个吃庞蟹的人!
用段点调试
根据HELP的语法修改!
blueshu 2002-11-08
  • 打赏
  • 举报
回复
head.dat有这个东东吧
blueshu 2002-11-08
  • 打赏
  • 举报
回复
有什么错?
zwjchina 2002-11-08
  • 打赏
  • 举报
回复
改为如下
procedure TForm1.Button1Click(Sender: TObject);
var
test:array of byte;
numread,count:integer;
f:file;
begin
assignfile(f,'head.dat');
reset(f,1);
setlength(test,10);
blockRead(f,test[0],10,numread); //<<-----------改这里
closefile(f);
numread:=0;
end;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧