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 把一个ico转换为bmp

Delphi 利用http的post方法做个在线翻译的小工

Delphi 删除文件的函数

Delphi 简单的 "双缓冲" 绘图的例子

Delphi kbmmw sampleservice/sampleclient方式传输数据集

Delphi link() 精简打开网址

Delphi中dataset和json的互转

Delphi txt编码互转 ansi utf-8

Delphi datetimetogmt gmt时间与tdatetime转换

Delphi检测android mock位置

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

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