Class Object

	' 実行時型情報
	typeInfo As TypeInfo

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
*/
End Class