Changeset 402 for trunk/Include/Classes/ActiveBasic/Core

Timestamp:

Feb 12, 2008, 8:20:21 AM (17 years ago)

Author:

dai

Message:

・XML関連のクラスの枠組みを追加。
・動的型情報にメンバ情報を改善。

File:

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

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

@@ -12 +12 @@
 
     ' メンバ情報
-    memberNames As **Char               ' 名前リスト
-    memberTypeFullNames As **Char       ' 型名リスト
+    memberNames As *String              ' 名前リスト
+    memberTypeFullNames As *String      ' 型名リスト
     memberCounts As Long                ' 個数
 
@@ -33 +33 @@
 Public
 
-    Sub SetMemberTypes( memberNames As **Char, memberTypeFullNames As **Char, num As Long )
+    Sub SetMembers( memberNames As *String, memberTypeFullNames As *String, num As Long )
         This.memberNames = memberNames
         This.memberTypeFullNames = memberTypeFullNames
         This.memberCounts = num
+
+        /*
+        OutputDebugString( Ex"\r\n" )
+        Dim i As Long
+        For i=0 To ELM(num)
+            OutputDebugString( memberNames[i] )
+            OutputDebugString( ", " )
+            OutputDebugString( memberTypeFullNames[i] )
+            OutputDebugString( Ex"\r\n" )
+        Next
+        */
     End Sub