流 相关

Question

var
  b:byte;
  f:file of byte;
begin
  assignfile(f,'c:\test.tem');
  reset(f);
  seek(f,12);
  read(f,b);
end上述代码如何用流实现?
即获取c:\test.tem第12字节的值...
thanks,and waiting...

Answer 1

f:TFileStream;
1)生成流文件
2）定位到12字节，用f.position实现
3）读取到缓冲
4）写入f,.writebuffer

Answer 2

var
  s:Tstream;
begin
  s:=Tfilestream.Create('c:\*.*',fmopenread);
  try
    s.Seek(12,soFromBeginning)
    s.ReadBuffer(b.***,r.len);
  finally
    s.Free;
  end;
end;