Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi 把字符串转换成流(stream) →→→→→进入此内容的聊天室

来自 , 2020-09-16, 写在 Delphi (Object Pascal), 查看 179 次.
URL http://www.code666.cn/view/e1ab840a
  1. procedure StringToStream(const Str: string; const Stm: Classes.TStream);
  2. var
  3.   SS: Classes.TStringStream;  // used to copy string to stream
  4. begin
  5.   // Create stream onto string and copy it to given stream
  6.   SS := Classes.TStringStream.Create(Str);
  7.   try
  8.     Stm.CopyFrom(SS, Length(Str));
  9.   finally
  10.     SS.Free;
  11.   end;
  12. end;
  13. //delphi/2233

回复 "Delphi 把字符串转换成流(stream)"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666