Delphi 字符串转流

• 函数类型：　自定义函数

• 函数说明：

字符串转流

• 代码如下：

 procedure WriteStr(Stream: TStream; const s: string);
var
  L: Integer;
begin
  L := s.Length;
  Stream.WriteBuffer(L, SizeOf(Integer));
  if L > 0 then
    Stream.WriteBuffer(s[1], L * SizeOf(Char));
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》