michael преди 6 години
родител
ревизия
31e43b5ec1
променени са 1 файла, в които са добавени 6 реда и са изтрити 0 реда
  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)