简单，不过我不会。

[silicon_crystal]

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;

整个程序就这么多句话。却要出错。帮帮忙吧

[zwjchina]

改为如下
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;

[blueshu]

有什么错？

[blueshu]

head.dat有这个东东吧

[ddvboy]

第一个吃庞蟹的人！
用段点调试
根据HELP的语法修改！

[silicon_crystal]

to: zwjchina(蒲石)
谢了。哈。原来如此，能给我说说为什么吗？我不写那个[0]程序也通过了。
随便给我说说我怎么给分

[silicon_crystal]

哦还有。我需要释放内存吗？

[findya]

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;

这样也行