请教删除特定文件中内容 请问如何删除特定文件中指定偏移量后的指定长度数据通俗点,也就是,如果从一个文件中删除指定位置指定长度的数据 解决方案 » 免费领取超大流量手机卡,每月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 文件操作方式也行 QQ窗体边框边缘透明问题 关于ADOQuery连接XML文件的问题 俺看到最垃圾的深圳地图,大家千万“深圳易图”的当。。。。 【转帖】来看2004对日货抵制的成果吧(日本调查机构统计) dbgrid刷新问题 一个ADO方式连接ACCESS数据库的问题?请指教! 网站和客户端公用一个数据库的问题 请问各位高手,delphi6中的DBCtrlGrid控件是否可以多选?如果想在数据集中多选的话如何写代码? 各位高手帮帮忙!我要疯了! 求购delphi5安装盘。 操作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 文件操作方式也行