一个变量数组可以有0个元素吗?

Question

普通动态数组支持空(= nil, Length() = 0)

变量数组似乎不支持这个。

我在变量数组中传递我的数据(因为OLE/COM)，当用户定义0个元素时，我得到一个错误…

我可以使用varEmpty代替0长度数组，但这些数据数组是灵活更改的(添加项，删除项等)。

我如何在变量中传递空数组，或者我需要使用其他方式吗?

Answer 1

varEmpty是处理此问题的正确方法。当然，COM接口另一端的代码可能不喜欢空数组，但这完全取决于您与该接口的特定契约。

Answer 2

下面的代码将更新一个变量数组，无论该数组是否为空。

Sub Variant_Add(Var_Array As Variant, What)
    ' Add "What" to a "Var_Array" without book keeping.
    ' 3/18/19 Created, Mac Lingo
    ' Note: Variant_Add must be defined in the following way: _
        Dim Var_Array as Variant
    Prog = "Variant_Add"
    If IsEmpty(Var_Array) Then
        ReDim Var_Array(1) As Variant
        Knt = 1
    Else
        Knt = Var_Array(0) + 1
        ReDim Preserve Var_Array(Knt) As Variant
    End If
    Var_Array(Knt) = What
    Var_Array(0) = Knt
End Sub ' Variant_Add