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 savedialog覆盖询问

Delphi发送邮件

Delphi 中showmodal与show的区别

Delphi 静态数组的定义方法

Delphi 如何取得键盘每个键

Delphi format格式化函数

Delphi编程防止界面卡死的方法

Delphi 窗体置顶(总在最前面)

Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

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

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