Delphi 流转换为变体

• 函数类型：　自定义函数

• 函数说明：

流与变体之间的转换

• 代码如下：

 procedure StreamToVar(Stream: TStream; Var Value: Variant);
var
  p: Pointer;
begin
  Value := VarArrayCreate([0, Stream.Size - 1], varByte);
  p := VarArrayLock(Value);
  try
    Stream.position := 0;
    Stream.Read(p^, Stream.Size)
  finally
    VarArrayUnlock(Value);
  end;
end;

• 用法示例：

无　

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