String 和 VariantArray

• 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;

  function VariantArrayToString(const V: OleVariant): string;
  var
    P: Pointer;
    Size: Integer;
  begin
    Result := '';
    if VarIsArray(V) and (VarType(V) and varTypeMask = varByte) then
    begin
      Size := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
      if Size > 0 then
      begin
        SetLength(Result, Size);
        P := VarArrayLock(V);
        try
          Move(P^, Result[1], Size);
        finally
          VarArrayUnlock(V);
        end;
      end;
    end;
  end;

  （出处：急速软件下载学院）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• String 和 VariantArray 相关文章：
• ·String 和 VariantArray
• String 和 VariantArray 相关软件

上一篇:第九章　Delphi拖放编程

下一篇:比 FastPos 还要快 Pos 函数

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐