请教文件读写，用于加密的

Question

我打算每10个字节就加密一个字节，加密方法是8421码，
比如说，我要读出第18个字节的值，然后转换成16位的二进制
按一定规律将16位的二进制调换位置后，重新写到那个位置上（第18个字节）
怎样实现怎样对一个文件进行读写啊（如C里面的fopen,fclose,打开方式“rw+”,fputc,fgetc之类！！）
怎样定位文件（如C里面的fseek之类
我习惯是C 语言的，DELPHI不知该怎么写，希望给出例子

Answer 1

使用
TFileStreamfs.read
fs.seek
fs.write
具体的你查帮助

Answer 2

我的程序关于读文件的片段,写你相应的改一下就行了．
procedure TForm1.BitBtn1Click(Sender: TObject);
var
filedic:TextFile;
filesc:TextFile;
//retdicl:string;
retsc:string;
//jsq:integer;
begin
//保存源文件
memo1.Lines.SaveToFile('source.sc');
//jsq:=0;
hjsq:=0;
//读文件
AssignFile(filesc,'source.sc');
reset(filesc);
readln(filesc,retsc);