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