delphi TFileStream和TMemoryStream分别读取、创建、合并文件
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.056039094924927 seconds