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

本文整理自网络，侵删。

 function Tform1.Test;varfs: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; 

相关阅读 >>

Delphi下遍历指定目录下指定类型文件的函数

Delphi 打开网页的两种方法

Delphi 2009 之 tbuttonededit

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

Delphi通过ie窗口句柄获取网页接口（iwebbrowser2）

Delphi gdi+ 文本输出

Delphi 修改快捷方式

Delphi 禁用tedit右键菜单及复制粘贴

Delphi安卓定位权限申请

更多相关阅读请进入《Delphi》频道 >>