创建数组并调整它们的大小

Question

假设我想创建一个包含 20 个元素的数组，所有元素均设置为默认值（假设为 0），

但是稍后，在运行时期间，我可能想要调整数组的大小。我可能会把它做得更大，以支持 30 个元素。这 10 个新元素的默认值为 0。

或者我可能想让我的数组更小，只有 5 个。所以我删除了数组最后 15 个元素的完整存在。

谢谢。

Answer 1

ReDim Preserve 会做到这一点，如果数组是在模块级别声明的，则引用它的任何代码都不会丢失引用。不过，我确实相信这是 vb 特有的，而且还会造成性能损失，因为这也会创建数组的副本。

我还没有检查过，但我怀疑上面描述的 user274204 方法可能是执行此操作的符合 CLR 的方法。 。

公开课 Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'Initialize your array:
    Dim Integers(20) As Integer

    'Output to the console, and you will see 20 elements of value 0
    Me.OutputArrayValues(Integers)

    'Iterate through each element and assign an integer Value:
    For i = 0 To UBound(Integers)
        Integers(i) = i
    Next

    'Output to console, and you will have values from 0 to 20:
    Me.OutputArrayValues(Integers)

    'Use Redim Preserve to expand the array to 30 elements:
    ReDim Preserve Integers(30)

    'output will show the same 0-20 values in elements 0 thru 20, and then 10 0 value elements:
    Me.OutputArrayValues(Integers)

    'Redim Preserve again to reduce the number of elements without data loss:
    ReDim Preserve Integers(15)

    'Same as above, but elements 16 thru 30 are gone:
    Me.OutputArrayValues(Integers)

    'This will re-initialize the array with only 5 elements, set to 0:
    ReDim Integers(5)
    Me.OutputArrayValues(Integers)


End Sub

Private Sub OutputArrayValues(ByVal SomeArray As Array)
    For Each i As Object In SomeArray
        Console.WriteLine(i)
    Next
End Sub

结束课

Answer 2

一旦创建了数组（或任何其他对象），就不可能调整其大小。

您可以使用 System.Array.Resize(ref T[], int) 获得类似的效果。然而，这实际上会创建一个新数组，其中复制了相关部分，如果有多个对数组的引用分散在各处，这可能不是您想要的。