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实现

dephi获取系统常量

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

Delphi 字符串加密解密单元

Delphi通过wmi获取系统信息

Delphi 如何获取窗口的图标

Delphi通过url获取网页源码

Delphi 如何检测你的电脑日期或时间的变化

Delphi length 统计指定字符串的长度(即个数)

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

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