delphi String转为OleVariant

本文整理自网络，侵删。

 
function StringToVariantArray(const S: string): OleVariant;
var
  P: Pointer;
begin
  Result := NULL;
  if Length(S) > 0 then
  begin
    Result := VarArrayCreate([0, Length(S) - 1], varByte);
    P := VarArrayLock(Result);
    try
      Move(S[1], P^, Length(S));
    finally
      VarArrayUnlock(Result);
    end;
  end;
end
 

相关阅读 >>

Delphi 限制窗体大小的最大值与最小值

Delphi 搜索字符串

Delphi windows 底下根据一个进程的名字杀死一个进程的代码

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi 按esc快捷键退出程序的简单方法

Delphi 接口尚未调用尚未调用coinitialize解决办法

Delphi实现百度地图经纬度与地址互转

Delphi窗体置顶

Delphi中一段可以判断网络连接的代码

Delphi 利用csidl打开特殊文件夹

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi String转为OleVariant