两个文件操作问题(50分)

1. 如何把文件倒数的n到m字节读出(m>n)，并存为文件。
2. 如何在文件倒数n字节处写入m字节的内容。

文件seek定位了就可以解决2问题；
1问题的解决；
从x-m:x：文件长度；
度曲m-n个字节到：
buffer;
然后从buffer后面取就可以了

1.文件按无类型打开，记录长度为1
var f:file;
.....
Reset(f,1);
try
Seek(f,n);
Blockread(f,Buf,m); //要保证Buf变量有足够的空间读入m个字节
finally
CloseFile(f);
end;
AssignFile(f,anotherfile);
Reset(f,1);
BlockWrite(f,Buf,m);
CloseFile(f);

2.
。。。
Reset(f,1);
Seek(f,n);
BlockWrite(f,Buf,m);
CloseFile(f);

接受答案了.