Delphi 流转字符串

2020-05-26
  • 函数类型: 自定义函数

  • 函数说明:

流转字符串


  • 代码如下:



function ReadStr(Stream: TStream): string; var L: Integer; begin Stream.ReadBuffer(L, SizeOf(Integer)); SetLength(Result, L); if L > 0 then Stream.ReadBuffer(Result[1], L * SizeOf(Char)); end;



  • 用法示例:

无 



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





阅读44