Changeset 207 for Include/Classes/System/Object.ab

Timestamp:

Apr 7, 2007, 3:03:38 PM (17 years ago)

Author:

dai

Message:

動的型情報（Object.GetType）に対応。
戻り値やクラスメンバがオブジェクトだったとき、その初期値をNothingにした（※戻り値として関数名を使っている部分、要注意！！）。

File:

• Include/Classes/System/Object.ab (modified) (2 diffs)

Include/Classes/System/Object.ab

@@ -1 +1 @@
 Class Object
-
-    ' 実行時型情報
-    typeInfo As TypeInfo
 
 Public
@@ -37 +34 @@
     End Function
 */
+
+
+    '----------------------------------------------------------------
+    ' 実行時型情報
+    '----------------------------------------------------------------
+
+Private
+    typeInfo As TypeInfo
+
+Public
+    Sub _System_SetType( typeInfo As TypeInfo )
+        If _System_TypeBase.IsReady() = False Then
+            Return
+        End If
+
+        This.typeInfo = typeInfo
+    End Sub
+
+    Function GetType() As TypeInfo
+        Return typeInfo
+    End Function
+
 End Class
+Dim aaa As Long