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

Class Object
Public

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

    ' 2つのオブジェクトが等しいかどうかを判断する
    Virtual Function Equals( ByRef obj As Object ) As Boolean
        If VarPtr( This ) = VarPtr( obj ) Then
            Return True
        Else
            Return False
        End If
    End Function
    Static Function Equals( ByRef objA As Object, ByRef objB As Object ) As Boolean
        Return objA.Equals( objB )
    End Function

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

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