arrays - 将变体数组转换为动态数组

Question

我正在尝试将变体数组（双精度数，但我猜它可能是任何东西）转换为动态数组。我通常使用 DynArrayFromVariant 和 DynArrayToVariant 过程，但在这种情况下，我的变量数组是基于 1 的。这两个函数似乎只适用于基于 0 的数组。知道我该怎么做我需要做的吗？

Answer 1

如果您知道数组元素的类型，您可以编写更高效（但不那么通用）的代码：

function DoubleDynArrayFromVarArray(const V: Variant): TDoubleDynArray;
var
  P: Pointer;
  Count: Integer;
begin
  Result := nil;
  if not VarIsArray(V) or (VarType(V) and varTypeMask <> varDouble) or
    (VarArrayDimCount(V) <> 1) then
    raise EVariantInvalidArgError.Create(SVarInvalid);

  Count := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
  if Count = 0 then
    Exit;

  P := VarArrayLock(V);
  try
    SetLength(Result, Count);
    Move(P^, Result[0], Count * SizeOf(Double));
  finally
    VarArrayUnlock(V);
  end;
end;