String 和 VariantArray

最新推荐文章于 2023-09-25 09:58:59 发布

LuckyJan

最新推荐文章于 2023-09-25 09:58:59 发布

阅读量1.5k

点赞数

分类专栏： Delphi基础文章标签： string function integer null

本文链接：https://blog.csdn.net/LuckyJan/article/details/99087

版权

Delphi基础专栏收录该内容

43 篇文章 0 订阅

订阅专栏

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;