Data update

Task/Reflection-List-properties/FreeBASIC/reflection-list-properties.basic

@@ -0,0 +1,32 @@
+Type TestClass
+    Private:
+        PrivateField As Integer = 7
+        PrivateNumber As Integer = 2
+    Public:
+        PublicNumber As Integer = 4
+        Declare Function GetPrivateField() As Integer
+        Declare Function GetPrivateNumber() As Integer
+End Type
+
+Function TestClass.GetPrivateField() As Integer
+    Return PrivateField
+End Function
+
+Function TestClass.GetPrivateNumber() As Integer
+    Return PrivateNumber
+End Function
+
+Sub GetPropertyValues(Byval obj As TestClass Ptr)
+    Print "PublicNumber: " & obj->PublicNumber
+End Sub
+
+Sub GetFieldValues(Byval obj As TestClass Ptr)
+    Print "PrivateField: " & obj->GetPrivateField()
+    Print "PrivateNumber: " & obj->GetPrivateNumber()
+End Sub
+
+Dim As TestClass t
+GetPropertyValues(@t)
+GetFieldValues(@t)
+
+Sleep