• 函数类型：　自定义函数

• 函数说明：

字符串转流

• 代码如下：

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;

• 用法示例：

无　

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