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 10分钟10行代码开发app(Delphi 应用案例)

Delphi 判断是否为空('none', 'null', '')

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi截获和干扰窗体最小化�p最大化和关闭消息

Delphi xe2 将域名转ip

Delphi android控制睡眠

Delphi fmx 安卓跳转到支付宝付款页面

Delphi 获取适合微信使用的当前日期，以int64表示，是当前时间和1970-01-01 00:00:00之间的秒差

Delphi tnethttpclient https忽略证书验证

Delphi winapi: messagebeep - 播放一个系统声音

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

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