デストラクタの呼び出しはどのタイミングですか？

お疲れ様です。

現在、デストラクタについて調べています。
デストラクタの逆関数であるコンストラクタは、
オブジェクトが生成されたときに呼び出されるということで、
コードで例えるならばNewされた時とわかりやすいのですが、
デストラクタのオブジェクトが破棄されたとき（解放されたとき）というのは、
コードで例えるとどのような処理に当てはまりますか。

Closeで良いのでしょうか？
VBAでは、下記コードでコンストラクタは呼び出せます。
Dim M As New MyClass ←　オブジェクトの生成。コンストラクタが呼び出される。

オブジェクトの破棄は調べると下記文言がありましたが、
明示的な破棄は一般的にされないのでしょうか？

■オブジェクトが破棄されるタイミング

　参照カウント方式です。オブジェクトへの参照数が0になると、すぐに破棄されます。
そのとき、Terminateイベントが呼び出されます（※１）。

ここでいう参照カウント方式では、下記URLを参考に調べました。

https://ja.wikipedia.org/wiki/%E5%8F%82%E7%85%A7%E3%82%AB%E3%82%A6%E3%83%B3%E3%83%88

すべてのオブジェクト（メモリ上におかれているデータの単位）に対して、参照カウントと呼ばれる整数値を付加しておく。これは、このオブジェクトへのポインタがシステム全体にいくつ存在しているかを数えるものである。

上記が参照カウント方式でのカウント方式らしいのですが、
＞このオブジェクトへのポインタがシステム全体にいくつ存在しているかを数えるものである。
この部分の理解がいまいちです。

たとえば下記コードがあったとして、Mのオブジェクトのカウントは６ということでしょうか？

vba
1Sub Test()
2    Dim M As New MyClass
3    M.method1()
4    M.method2()
5    M.method3()
6    M.method4()
7    M.method5()
8End Sub

6つ最初にカウントしておいて、Mの使用がされるたびに減算していく方式？ということであっていますか？

つまり、M.method5()の実行後、カウントが０になり、デストラクタが呼び出されるということで良いですか？

デバッグで確認すると、デストラクタの呼び出しは、
Test()のEnd Sub通過後になっているようなので、
どういう方式で減算されていっているのか不明です。

お願いします。

行動規範の内容に同意します

回答2件

たとえば下記コードがあったとして、Mのオブジェクトのカウントは６ということでしょうか？

VBA
1Sub Test()
2    Dim M As New MyClass
3    M.method1
4    M.method2
5    M.method3
6    M.method4
7    M.method5
8End Sub

いいえ。Method1～5は単にMオブジェクト内の話なので、Mオブジェクトの参照としては1です。

■オブジェクトが破棄されるタイミング
参照カウント方式です。オブジェクトへの参照数が0になると、すぐに破棄されます。

MオブジェクトはTest()のスコープ内でインスタンスが生成されているので、
Test()が終了するとスコープでの参照が無くなる為、破棄されます。

スコープ内で明示的に破棄する場合はNothingを使用します。

VBA
1Sub Test()
2    Dim M As New MyClass
3    M.method1
4    M.method2
5    M.method3
6    M.method4
7    M.method5
8    
9    M = Nothing
10End Sub
11
12

投稿2017/10/25 04:22

sazi

総合スコア25173

BeatStar

2017/10/25 04:26

ああ、Nothingがありましたね。 JavaScriptでも obj = null; ってやっていたりするし。

行動規範の内容に同意します

ベストアンサー

私は趣味でC++ ( Better-C )やっています。

VBAはあまり使っていませんが。

たぶん、そのページの「カウンタ方式である」云々は動かした回数ではなく、

ブロックごとに生成された回数 だと思います。

実際、C++にはガーベージコレクタ ( GC ) はないので、プログラマ自身がdelete ( 破棄 ) する必要がありますが、

C++11っていう比較的新しいバージョンではスマートポインタ と呼ばれるクラス? が用意されています。

その前までは auto_ptr っていうものがあったらしいですが、これは色々エラーを引き起こすようで、代わりとなる shared_ptr, weak_ptr 等が考案されたようです。

で、shared_ptrはカウンタ方式らしいです。

これはブロックごとに計算するようです。

VBA風に書くと、

VBA
1Sub test1()
2    ' Class1 というクラスがあるとして
3    Dim obj As Class1
4    Set obj = New Class1
5    test2 obj
6End Sub
7
8Sub test2( ByVal obj As Class1 )
9    obj.text = "hello"
10    ' 何らかの処理
11     test3 obj
12End Sub
13
14Sub test3( ByVal obj As Class1 )
15    MsgBox obj.text
16End Sub