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 颜色选取

Delphi 之前解析串口数据

Delphi winapi: getwindowtext - 获取窗口标题

Delphi注册与卸载系统服务

Delphi sha1加密函数

Delphi 随机生成汉字

Delphi 中的哈希表: thashedstringlist

Delphi版的base64转换函数（修改版）

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

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