X
xgw404
Unregistered / Unconfirmed
GUEST, unregistred user!
var inputfile:file;
onebyte:Byte;
begin
assignfile(inputfile,'d:/1.txt');
reset(inputfile);
while not eof(inputfile) do
begin
blockread(inputfile,oneByte,sizeof(onebyte));
end;
closefile(inputfile);
end;
编译时，系统提示：read beyond end of file ;
在线等！！！
onebyte:Byte;
begin
assignfile(inputfile,'d:/1.txt');
reset(inputfile);
while not eof(inputfile) do
begin
blockread(inputfile,oneByte,sizeof(onebyte));
end;
closefile(inputfile);
end;
编译时，系统提示：read beyond end of file ;
在线等！！！