f:file
b:array[1..4] of byte;
//按字节读取文件
AssignFile(f, fname); 关联文件到变量
reset(f, 4); //打开文件,并设定一次读取4个字节
blockread(f, b, 1); //读取文件,一次读取4个字节 到变量B中 同时读取指针下移4个字节。
f:file
b:array[1..4] of byte;
//按字节读取文件
AssignFile(f, fname); 关联文件到变量
reset(f, 4); //打开文件,并设定一次读取4个字节
blockread(f, b, 1); //读取文件,一次读取4个字节 到变量B中 同时读取指针下移4个字节。