TFileStream流来读取文件的问题

Question

  var   
      F:   TFileStream;
      Buf:   array   of   Char;
      Buf2:   array   of   Char;
  begin
      F:=TFileStream.Create('D:\aaa\abd.hhh',fmOpenRead);
      try
          SetLength(Buf,   F.Size);
          F.Read(Buf[0],   F.Size);
          SetLength(Buf2,   F.Size   *   2);
          BinToHex(@Buf[0],   @Buf2[0],   Length(Buf));
          RichEdit1.Text   :=   StrPas(@Buf2[0]);
      finally
          F.Free;
      end; 上面的代码可以把abd.hhh以16进制的格式读入到RichEdit1,现在我想从某一个位置开始读,假设多8个字符
例如:从流的1800个字符开始读8个字符,该怎样操作?我不熟悉流的操作,请大家帮忙了

Answer 1

定义一个字符数组，f.Position:=1800,然后读8个字符到你的字符数组里

Answer 2

  F.Position:=1800;
  F.Read(buf[0],8)