TFileStream和TMemoryStream分别读取、创建、合并文件

2019-11-06 06:20:06

字体：大中小

来源：转载

供稿：网友

function Tform1.Test; var fs:TFileStream; fs2:TFileStream; fs3:TFileStream; str:string; ms:TMemoryStream; ms2:TMemoryStream; sr:TStream; begin //TFileStream创建文本文件 str:='文件操作'; fs:=TFileStream.Create('c:/1.txt',fmCreate); fs.WriteBuffer((PChar(str))^,Length(str)); fs.Free; //TFileStream读取文本文件 fs:=TFileStream.Create('c:/1.txt',fmOpenRead); SetLength(str,fs.size); fs.ReadBuffer((PChar(str))^,fs.Size); ShowMessage(str); fs.Free; //TFileStream读取文本文件 ms:=TMemoryStream.Create; ms.LoadFromFile('c:/1.txt'); SetLength(str,ms.size); ms.ReadBuffer((PChar(str))^,ms.size); ms.Free; ShowMessage(str); //TMemoryStream创建文本文件 str:='文件操作'; ms:=TMemoryStream.Create; ms.WriteBuffer((PChar(str))^,Length(str)); ms.SaveToFile('c:/2.txt'); ms.Free; //TMemoryStream文件合并 ms:=TMemoryStream.Create; ms.LoadFromFile('c:/1.txt'); ms.Position:=ms.Size;//移动文件指针 ms2:=TMemoryStream.Create; ms2.LoadFromFile('c:/2.txt'); ms.CopyFrom(ms2,0); ms.SaveToFile('c:/3.txt'); ms.Free; ms2.Free; end;

上一篇：处有未经处理的异常: 0xC0000005: 读取位置 0xcccccccc 时发生访问冲突

下一篇：全面分析 Spring 的编程式事务管理及声明式事务管理