Index: /trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab
===================================================================
--- /trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab	(revision 400)
+++ /trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab	(revision 401)
@@ -10,4 +10,9 @@
 	name As String
 	fullName As String
+
+	' メンバ情報
+	memberNames As **Char				' 名前リスト
+	memberTypeFullNames As **Char		' 型名リスト
+	memberCounts As Long				' 個数
 
 Protected
@@ -27,4 +32,10 @@
 
 Public
+
+	Sub SetMemberTypes( memberNames As **Char, memberTypeFullNames As **Char, num As Long )
+		This.memberNames = memberNames
+		This.memberTypeFullNames = memberTypeFullNames
+		This.memberCounts = num
+	End Sub