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;
 

相关阅读 >>

Delphi 判断某个系统服务是否存在及相关状态

Delphi 之 trichedit组件

Delphi xe5实现按android的back键无法退出关闭程序

Delphi 给gmail发送邮件

Delphi 系统appdata local 路径

Delphi 拷贝edit编辑框中的内容

Delphi的tservice的windows�入桌面切�q

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi tlistview控件里添加背景色

Delphi xe5-android开发 目录结构

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

转载请注明出处：木庄网络博客 » delphi TFileStream和TMemoryStream分别读取、创建、合并文件