Index: /Include/Classes/System/TypeInfo.ab
===================================================================
--- /Include/Classes/System/TypeInfo.ab	(revision 195)
+++ /Include/Classes/System/TypeInfo.ab	(revision 196)
@@ -194,5 +194,5 @@
 	End Sub
 
-	Sub _add( typeInfo As TypeInfo )
+	Sub Add( typeInfo As TypeInfo )
 		pTypes = realloc( pTypes, ( count + 1 ) * SizeOf(*TypeInfo) )
 		pTypes[count] = typeInfo
@@ -200,16 +200,17 @@
 	End Sub
 
+	Function Search( strNamespace As String, typeName As String ) As TypeInfo
+		' TODO: 名前空間に対応する
+		Dim i As Long
+		For i = 0 To ELM( count )
+			If pTypes[i].Name = typeName Then
+				Return pTypes[i]
+			End If
+		Next
+		Return Nothing
+	End Function
+
 	' シングルトン オブジェクト
 	Static obj As _System_TypeBase
-
-Public
-
-	Static Sub Add( typeInfo As TypeInfo )
-		obj._add( typeInfo )
-	End Sub
-
-	Static Sub _NextPointerForGC()
-		' TODO: 実装
-	End Sub
 
 	Static Sub InitializeValueType()
@@ -230,4 +231,13 @@
 	Static Sub InitializeUserTypes()
 		' このメソッドの実装はコンパイラが自動生成する
+
+		'例:
+		'obj.Add( New _System_TypeForClass( "String", "", obj.Search( "Object" ) ) )
+	End Sub
+
+Public
+
+	Static Sub _NextPointerForGC()
+		' TODO: 実装
 	End Sub