Delphi Base64字符串转变体

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

  • 函数说明:

Base64字符串转变体


  • 代码如下:



function Base64StringToVariant(const s: string): Variant; var vStream: TMemoryStream; begin vStream := TMemoryStream.Create; try Base64StringToStream(vStream, s); Result := StreamToVariant(vStream); finally vStream.DisposeOf; end; end;



  • 用法示例:

无 



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





阅读37