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多线程学习：多线程数据库查询（ado）

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi 检查父进程

Delphi 判断是否是0-9数字

Delphi取得文件图标并在tlistview中显示

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi启动屏幕保护

Delphi winapi: movewindow - 改变窗口的位置与大小

Delphi用idtcpserver和idtcpclient传输文件

Delphi access存储过程是带参数的查询语句

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

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