官方QQ:  16643506

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;



  • 用法示例:

无 



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678