Delphi 流转字符串

• 函数类型：　自定义函数

• 函数说明：

流转字符串

• 代码如下：

 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;

• 用法示例：

无　

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