[flexValue] some improvements

Author: exilon

Quick.Value.RTTI.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.0
   Created     : 06/05/2019
-  Modified    : 09/04/2020
+  Modified    : 26/06/2020
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -69,6 +69,7 @@   TRTTIFlexValue = record helper for TFlexValue
     function AsType<T : class> : T;
     function AsRecord<T : record> : T;
     function AsArray<T> : TArray<T>;
+    function AsInterfaceEx<T : IInterface> : T; overload;
   end;
 
 implementation
@@ -81,6 +82,11 @@ function TRTTIFlexValue.AsArray<T>: TArray<T>;
   Result := (Self.Data as IValueTValue).Value.AsType<TArray<T>>;
 end;
 
+function TRTTIFlexValue.AsInterfaceEx<T>: T;
+begin
+  Result := T(Self.Data);
+end;
+
 function TRTTIFlexValue.AsRecord<T>: T;
 begin
   if DataType <> dtRecord then raise Exception.Create('DataType not supported');

Quick.Value.pas

@@ -618,6 +618,7 @@ function TFlexValue.CastToInterface: IInterface;
       dtNull : Result := nil;
       dtInterface : Result := fDataIntf;
       dtPointer : Result := IInterface(fDataIntf);
+      dtVariant : Result := IInterface(fDataIntf);
       else raise Exception.Create('DataType not supported');
     end;
   except