Data Types

Src/Data/Myc.Data.Types.Enum.pas

@@ -27,6 +27,9 @@ type
 
 implementation
 
+uses
+    System.Rtti;
+
 type
     TDataEnumValue = class(TInterfacedObject, IDataEnumValue)
     private
@@ -35,6 +38,7 @@ type
         function GetDataType: IDataType;
         function GetAsString: string;
         function GetValue: Integer;
+        function AsTValue: TValue;
     public
         constructor Create(const ADataType: IDataEnumType; const AValue: Integer);
     end;
@@ -130,4 +134,9 @@ begin
     Result := FValue;
 end;
 
+function TDataEnumValue.AsTValue: TValue;
+begin
+    Result := TValue.From<Integer>(FValue);
+end;
+
 end.