Changeset 401 for trunk/Include/Classes/ActiveBasic

Timestamp:

Feb 11, 2008, 12:11:27 PM (18 years ago)

Author:

dai

Message:

動的型情報にメンバ情報を持たせた

File:

• trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab (modified) (2 diffs)

trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -10 +10 @@
     name As String
     fullName As String
+
+    ' メンバ情報
+    memberNames As **Char               ' 名前リスト
+    memberTypeFullNames As **Char       ' 型名リスト
+    memberCounts As Long                ' 個数
 
 Protected
@@ -27 +32 @@
 
 Public
+
+    Sub SetMemberTypes( memberNames As **Char, memberTypeFullNames As **Char, num As Long )
+        This.memberNames = memberNames
+        This.memberTypeFullNames = memberTypeFullNames
+        This.memberCounts = num
+    End Sub