paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-20 20:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add enum type

Browse Source
This commit is contained in:
michael 2019-04-01 08:50:26 +00:00
parent 20561ff2d9
commit 31e43b5ec1
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/dataabstract/rosdk.pas
View File

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