Browse Source

* Add enum type

michael 6 năm trước cách đây
mục cha
commit
31e43b5ec1
1 tập tin đã thay đổi với 6 bổ sung0 xóa
  1. 6 0
      packages/dataabstract/rosdk.pas

+ 6 - 0
packages/dataabstract/rosdk.pas

@@ -77,10 +77,16 @@ Type
     Procedure writeTo(aMessage : TROMessage);
   end;
 
+  { TROEnumType }
+
   TROEnumType = class external name 'RemObjects.SDK.ROEnumType' (TROComplexType)
+  private
+    FEnumValues: TStringDynArray;
   Public
+    value : string;
     Procedure fromObject(aObject : TJSObject); overload;
     Function toObject(aStoreType : Boolean) : TJSObject;overload;
+    property enumValues : TStringDynArray read FEnumValues;
   end;
 
   TROStructType = class external name 'RemObjects.SDK.ROStructType' (TROComplexType)