简单，不过我不会。

Question

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;整个程序就这么多句话。却要出错。帮帮忙吧

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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;这样也行