简单,不过我不会。
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;
整个程序就这么多句话。却要出错。帮帮忙吧