二进制文件如何读，具体代码？

Question

二进制文件如何读，具体代码？

Answer 1

供参考Var
 R4 : single ;
          R8 : Real        ;
          I4 : Integer     ;
          B255 : Array[1..255] of byte ;
Begin
Lin_IO   := FileOpen(FileName , fmShareDenyWrite); // 原文件
          :     :
FileRead(Lin_IO , R4 , 4) ; // 读入数据二进制四字节数据
FileRead(Lin_IO , R8 , 8) ; // 读入数据二进制八字节数据
FileRead(Lin_IO , I4 , 4) ; // 读入数据二进制整型数据
FileRead(Lin_IO , B255 , 255) ; // 读入数据二进制整型数据
           :             :
           :             : FileClose( IO_Unit ) ;// 也可在一个文件中进行处理
FileRead(Lin_IO , R4 ,  4) ; //定位到指定位置读入数据
// 对R4数据进行处理
  :     :
FileSeek(Lin_IO , ??? , ???) ;//返回到期读入数据处

Answer 2

FileOpen  打开
FileSeek  定位
Fileread  读
FileClose 关闭。