删除文件的一段

procedure DStreamData(FileName:String; StartPos,EndPos: Integer);

//StartPos: 从此开始"删除"信息，EndPos: 到此结束"删除"信息

//如果输入文件名与输出文件名相同，就等于把源文件的StartPos与EndPos之间的内容删除

var

 Ori: TFileStream;

 Tmp: TMemoryStream;

begin

   try

     Ori := TFileStream.Create(FileName, fmOpenRead);

     Tmp := TMemoryStream.Create;

     Tmp.CopyFrom(Ori, StartPos);

     //Tmp从Ori拷贝数据，但在StartPos与EndPos之间不拷，因此形同删除了一段数据

     Ori.Seek(EndPos,soFromBeginning);

     Tmp.CopyFrom(Ori, Ori.Size-EndPos);

     Tmp.SaveToFile(FileName);  //在此设置输出文件名

   finally

     FreeAndNil(Ori);

     FreeAndNil(Tmp);

   end;

end;