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 10.2 新特性之―tfdbatchmovejsonwriter

Delphi中建议使用的语句

Delphi memo 手动选择txt文本编码并读取

Delphi fdmemtable1建立缓存表

Delphi 计算农历的单元

Delphi xe5 android手机端转换ansi字符串

Delphi 动态调整打印机纸张大小

Delphi 判断 文本文件 utf-8 bom头

Delphi禁用、启用usb

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

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

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