Delphi XE6 String转MemoryStream

将一个字符串转换成MemoryStream的函数.function StringToMemory(s:string):TMemoryStream;var  bytes:TBytes;  ms:TMemoryStream;begin      ms:=TMemoryStream.Create;      bytes := TEnCoding.UTF8.GetBytes(s);      ms.Write(bytes, Length(bytes));      result:=ms;end;