Quick.Value changes

Quick.Value.RTTI.pas

@@ -62,6 +62,7 @@ begin
     case DataType of
       dtNull : Result := TValueExtended;
       dtBoolean : Result := AsBoolean;
+      dtString : Result := AsString;
       {$IFDEF MSWINDOWS}
       dtAnsiString : Result := AsAnsiString;
       dtWideString : Result := AsWideString;

Quick.Value.pas

@@ -267,6 +267,8 @@ type
     function  IsObject : Boolean; inline;
     function  IsPointer : Boolean; inline;
     function  IsVariant : Boolean; inline;
+    function IsRealInteger : Boolean;
+    function IsRealExtended : Boolean;
     procedure Clear; inline;
     procedure _AddRef; inline;
     procedure _Release; inline;
@@ -910,6 +912,20 @@ begin
   Result := fDataType = dtPointer;
 end;
 
+function TFlexValue.IsRealExtended: Boolean;
+var
+  i : Extended;
+begin
+  Result := TryStrToFloat(AsString,i);
+end;
+
+function TFlexValue.IsRealInteger: Boolean;
+var
+  i : Int64;
+begin
+  Result := TryStrToInt64(AsString,i);
+end;
+
 function TFlexValue.IsString: Boolean;
 begin
   Result := fDataType in [dtString,dtAnsiString,dtWideString];