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

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
        Return objectA.Equals( objectB )
    End Function

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

    ' オブジェクトに関係する文字列を返す
    Virtual Function ToString() As String
        Return "Object"
    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

    Function GetType() As TypeInfo
        Return typeInfo
    End Function

End Class
Dim aaa As Long