delphi 将MemoryStream保存到字符串

本文整理自网络，侵删。

 
var
  mStream:    TMemoryStream;
  thisString: string;
begin
  mStream := TMemoryStream.Create;
  try
    mStream.LoadFromFile('Unit1.Pas');
    if mStream.Size > 0 then begin
      SetLength(thisString, mStream.Size);
      Move(mStream.Memory^, thisString[1], mStream.Size);
    end;
  finally
    mStream.Free;
  end;
  if Length(thisString) > 0 then
    RichEdit1.Text := thisString;
end;


//仅供参考


TheString: string;
TheStream: TmemoryStream;
..
TheStream := TMemoryStream.Create;
< your code >
SetLength( TheString, TheStream.Size);
TheStream.Position := 0;
TheStream.Write( TheString[1], Length(TheString));
TheStream.Free;
 

相关阅读 >>

Delphi 取pe文件的引入表和导出表

Delphi 拷贝edit编辑框中的内容

Delphi button 实现下拉列表

Delphi研究之驱动开发篇（六）--利用section与用户模式程序通讯(上)

Delphi快速地删除一个目录

Delphi 日期时间计算

Delphi 数据库处理密码防止sql注入

[Delphi]钩子(hook)机制的使用

Delphi 判断是否出现滚动条

Delphi 释放bitmap

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

转载请注明出处：木庄网络博客 » delphi 将MemoryStream保存到字符串