请教删除特定文件中内容 请问如何删除特定文件中指定偏移量后的指定长度数据通俗点，也就是，如果从一个文件中删除指定位置指定长度的数据 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 转procedure DStreamData(FileName:String; StartPos,EndPos: Integer); //StartPos: 从此开始“删除”信息，EndPos: 到此结束“删除”信息//如果输入文件名与输出文件名相同，就等于把源文件的StartPos与EndPos之间的内容删除varOri: TFileStream;Tmp: TMemoryStream;begintryOri := 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); //在此设置输出文件名finallyFreeAndNil(Ori);FreeAndNil(Tmp);end;end; Pascal 文件操作方式也行 Dev 皮肤控件为什么在MDI窗体使用,打开时抖动很厉害.... Delphi 录音问题，紧急！！！ 关于大华DVR报警编程的问题 关于DELPHI的一个小问题 高分求cxgrid多选删除解答 帮忙看一下这个sql的公式 怎样设置一个打印报表使他规范化，如QuickReport的字体大小等 想学数据库编程 CORBA服務器編譯的問題 高分求救：报表问题急急急！！！：如何在程序中动态设置QRBAND的Bandtype属性？？ 操作access数据库时间问题 如何从数据库中取出一定记录后，让其自动指向一下条记录，然后再去取第二条记录，以此类推
procedure DStreamData(FileName:String; StartPos,EndPos: Integer);
//StartPos: 从此开始“删除”信息，EndPos: 到此结束“删除”信息//如果输入文件名与输出文件名相同，就等于把源文件的StartPos与EndPos之间的内容删除varOri: TFileStream;Tmp: TMemoryStream;begintryOri := 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); //在此设置输出文件名finallyFreeAndNil(Ori);FreeAndNil(Tmp);end;end;
Pascal 文件操作方式也行