Delphi 把字符串读到流中的操作。

var

FReQuestM := TMemoryStream

FReQuestM.Write(PChar(FcVoucherXML)^, Length(FcVoucherXML));

这样就读到流中了。