* Add enum type

This commit is contained in:
michael 2019-04-01 08:50:26 +00:00
parent 20561ff2d9
commit 31e43b5ec1

View File

@ -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)