用流读写文件实现将文件中第36-39字节处的一个数字加一再放回原处？？？？

Question

偶是新手，搞了老半天都实现不了，请DX们明示！！
00 00 00 00 00 00 00 00 00 00 ..................
.............................01 01 00 00........
要求之后变成00 00 00 00 00 00 00 00 00 00 ..................
.............................02 01 00 00........请写出详细代码，谢谢

Answer 1

var
fs:TMemoryStream;
p:byte;fs:= TmemoryStream.Create;
fs.loadfromfile(your file);
fs.position:= 36;
fs.read(p......

Answer 2

处理完之后
fs.savetofile(your file);
fs.free;

Answer 3

fs,ts:tmemorystream;
  k:integer;
begin
  fs.load...
  fs.read(ts,35);
  fs.read(k,4);
  inc(k);
  ts.write(k,4);
  ts.copyfrom(fs,(fs.size-39));
end;

Answer 4

呵呵，自己解决了，跟tresss的差不多也谢谢了。。