用TFileStream读,然后用Filestream.seek

解决方案 »

  1.   

    TFileStream具体的应该如何的使用呢? 谢谢
      

  2.   

    function ReadAByte( const sFileName: String; Offset: Integer ): Byte;
    var
      fs: TFileStream;
    begin
      fs := TFileStream.Create( sFileName, fmOpenRead or fmShareDenyWrite );
      try
        fs.Seek( Offset, 0 );
        fs.Read( Result, 1 );
      finally
        fs.Free;
      end;
    end;使用 ReadAByte( '文件名', 12 ) 即可达到你的要求。