Browse Source

* Add enum type

michael 6 years ago
parent
commit
31e43b5ec1
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/dataabstract/rosdk.pas

+ 6 - 0
packages/dataabstract/rosdk.pas

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