source: Include/Classes/System/Object.ab@ 231

Class Object

Public

    Sub Object()
    End Sub
    Sub ~Object()
    End Sub

    ' 2つのオブジェクトが等しいかどうかを判断する
    Virtual Function Equals( object As Object ) As Boolean
        If This.GetHashCode() = object.GetHashCode() Then
            Return True
        Else
            Return False
        End If
    End Function
    Static Function Equals( objectA As Object, objectB As Object ) As Boolean
        If VarPtr(objectA) = 0 /*objectA = Nothing*/ Then
            Return VarPtr(objectB) = 0 'objectB = Nothing
        Else
            Return objectA.Equals( objectB )
        End If
    End Function

    ' 参照先が等しいか判断する
    Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
        If VarPtr( objectA ) = VarPtr( objectB) Then
            Return True
        Else
            Return False
        End If
    End Function

    ' ハッシュコードを取得する
    Virtual Function GetHashCode() As Long
        Return VarPtr( This ) As Long
    End Function

    ' オブジェクトに関係する文字列を返す
    Virtual Function ToString() As String
        Return GetType().Name
    End Function

/*
    Function Operator Downcast() As VoidPtr
    End Function
*/


    '----------------------------------------------------------------
    ' 実行時型情報
    '----------------------------------------------------------------

Private
    typeInfo As TypeInfo

Public
    Sub _System_SetType( typeInfo As TypeInfo )
        If _System_TypeBase.IsReady() = False Then
            Return
        End If

        This.typeInfo = typeInfo
    End Sub

    Virtual Function GetType() As TypeInfo
        Return typeInfo
    End Function

End Class
Dim aaa As Long