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 取得桌面文件夹的路径和取得我的文档的路径

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphi 的内存操作函数(1): 给字符指针分配内存

Delphi now、date、time、currentyear - 当前日期

Delphi case 语句中使用字符串

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 让"显示桌面"功能对你的窗口无效

Delphi 自我复制源码

Delphi代码变异加密工具

Delphi 62 进制的简单实现

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