使用 RemoveAll() 释放嵌套的 Scripting.Dictionary

Question

我在这里找到了可以回答一半问题的主题： Does Scripting.Dictionary's RemoveAll() method release all of its elements first?

在我的例子中，值是字典的实例，所以我有字典对象的嵌套层次结构。

我的问题是我是否需要在每个子词典上调用 RemoveAll？

' just for illustration
Dim d As Dictionary
Set d = New Dictionary

Set d("a") = New Dictionary
Set d("b") = New Dictionary

' Are the next section of code necessary?
' -------------------- section start
Dim key As Variant
For Each key In d
    d.Item(key).RemoveAll
Next
' -------------------- section end

d.RemoveAll
Set d = Nothing

Answer 1

在 VB6 中，所有对象（通过 COM）都受到引用计数，因此，除非有循环，否则您不需要手动处理。

Answer 2

考虑这段代码

Option Explicit

Private m_cCache As Collection

Private Sub Form_Load()
    ' just for illustration
    Dim d As Dictionary
    Set d = New Dictionary

    Set d("a") = New Dictionary
    Set d("b") = New Dictionary

    d("b").Add "c", 123
    SomeMethod d

    ' Are the next section of code necessary?
    ' -------------------- section start
    Dim key As Variant
    For Each key In d
        d.Item(key).RemoveAll
    Next
    ' -------------------- section end

    d.RemoveAll             '--- d("b") survives
    Set d = Nothing         '--- d survives

    Debug.Print "main="; m_cCache("main").Count, "child="; m_cCache("child").Count
End Sub

Private Sub SomeMethod(d As Dictionary)
    Set m_cCache = New Collection

    m_cCache.Add d, "main"
    m_cCache.Add d("b"), "child"
End Sub

如果不进行清理，则 d("b") 部分几乎不会受到影响——既不会删除子项，也不会终止实例。

Answer 3

好的，我想我可以通过下一个测试来回答自己。

Sub Main()
  Dim d As Dictionary
  Dim i, j As Integer
  Dim sDummy As String * 10000
  For i = 1 To 1000
    Set d = New Dictionary      ' root dict.
    Set d("a") = New Dictionary ' child dict.
    For j = 1 To 1000
      d("a").Add j, sDummy
    Next j
    'd("a").RemoveAll
    d.RemoveAll
    Set d = Nothing
  Next i
End Sub

我注释掉了d("a").RemoveAll（我的儿童词典）并且没有任何内存泄漏。这意味着在根 (d) 上调用 RemoveAll 就足够了，这就是我需要知道的全部内容。