var
newfile : TFileStream;
begin
newfile := TFileStream.Create('file.dat', fmcreate);
newfile.read(buf, count);
newfile.ReadBuffer(buf, count);
newfile.write(buf, count);
newfile.writeBuffer(buf, count);
// ... and so on
newfile.free;
end;
newfile : TFileStream;
begin
newfile := TFileStream.Create('file.dat', fmcreate);
newfile.read(buf, count);
newfile.ReadBuffer(buf, count);
newfile.write(buf, count);
newfile.writeBuffer(buf, count);
// ... and so on
newfile.free;
end;
解决方案 »
- DELPHI 怎样执行SQL 语句并且获得值?
- 在线求教个问题关于浮点函数的 求高手作答
- webbrowser加载问题。
- 求FastReport大批量打印时生成打印文件巨大和传输速度慢的解决方案
- 第一次发布软件试用,请大家提点建议!培训类的!
- 关于异或的问题,在线等
- 哪位老大有MASTERING DELPHI6的随书源码?
- 那里有DELPHI 6 的UPPACK 包down啊!
- 怎样在COM的函数里返回一个 流给 调用者?
- 请问如何取得IE控件中html文档代码?好象用IE的Document属性可以,IDispatch类型,但我不会用
- 怎么通过回车激发一个事件?
- sc.harabi.com 静候宝贵意见
rocedure 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;
你把PChar转换为Char类型再保存