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 tdictionary保存到文件

Delphi 如何快速读取非常大的文本文件

Delphi firedac连接oracle

Delphi 获取系统mydocuments文件夹路径

Delphi xe7使用本身的md5单元进行字符串加密

Delphi extractclassname 字符串处理函数

Delphi 声明指令 调用左右

winapi 字符及字符串函数(15): charnext、charprev

Delphi 实现拦截api的钩子(hook)

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

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