Custom Query (162 matches)

コレクションの要望は高い。その第一弾としてこのArrayListを実装したい。

New演算子と一時オブジェクトを必要とするパラメータを組み合わせると、スタックフレーム制御が正常に行われない。

下記のコードを実行すると、date.aが0になってしまう。

Class CTest
Public
    a As Int64

    Sub CTest()
    End Sub
    Sub ~CTest()
    End Sub
    Sub CTest( ByRef o As CTest ,ByRef o2 As CTest )
        a = o.a
    End Sub
End Class

Function Now() As CTest
    Dim s As CTest
    s.a=&H0123456789abcdef
    Return s
End Function

Dim date As *CTest
date = New CTest(Now,Now)
debug