使用很方便:要注意的是读写参数必须是Buf[0], S[1]<br><br>fs: TFileStream;<br>Buf: PChar;<br>S: string;<br><br>GetMem(Buf, 1000);<br><br>fs:= TFileStream.Create('文件名', 打开方式)<br>fs.Read(Buf[0], 1000);<br>S:= '123456';<br>fs.Write(S[1], Length(S));<br>fs.Free;<br><br>FreeMem(Buf);<br><br><br><br><br>