设为首页 加入收藏

TOP

封装了三个对TMemoryStream操作的函数,大牛莫笑
2017-10-10 12:07:19 】 浏览:3181
Tags:封装 三个 TMemoryStream 操作 函数 牛莫笑
//  TMemoryStream 转化为string字符串
function MemoryStreamToString(M: TMemoryStream): AnsiString;
begin
 SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char));
end;
//  TMemoryStream 写入string字符串
procedure MemoryAddStr(M:TMemoryStream;cStr:String);
begin
  if M=nil then
    M:=TMemoryStream.Create;
   M.Write(cStr[1],Length(cStr)*Sizeof(char));
end;
//  TMemoryStream 保存到文件
procedure MemoryStreamSaveToFile(M:TMemoryStream;cFileName:String);
 Var
   FStream:TFileStream;
 begin
   if FileExists(cFileName) then
     begin
       FStream:=TFileStream.Create(cFileName,fmOpenWrite or fmShareDenyWrite);
       FStream.Position:=FStream.Size;
     end else
       FStream:=TFileStream.Create(cFileName,fmCreate or fmShareDenyWrite);
   FStream.Write(M.Memory^,M.Position);
   FStream.Free;
 end;

 


编程开发网
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇技术笔记:Delphi多线程应用读写锁 下一篇aes加密算法的一个问题

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

最新文章

热门文章

C 语言

C++基础

windows编程基础

linux编程基础

C/C++面试题目