fcl-json: add support to create JSONObject with QWord values

packages/fcl-json/src/fpjson.pp

@@ -2848,6 +2848,7 @@ begin
                        Result:=CreateJSON();
       vtCurrency   : Result:=CreateJSON(vCurrency^);
       vtInt64      : Result:=CreateJSON(vInt64^);
+      vtQWord      : Result:=CreateJSON(VQWord^);
       vtObject     : if (VObject is TJSONData) then
                        Result:=TJSONData(VObject)
                      else

packages/fcl-json/tests/testjsondata.pas

@@ -234,6 +234,8 @@ type
     procedure TestCreateIntegerUnquoted;
     procedure TestCreateInt64;
     procedure TestCreateInt64Unquoted;
+    procedure TestCreateQWord;
+    procedure TestCreateQWordUnquoted;
     procedure TestCreateFloat;
     procedure TestCreateFloatUnquoted;
     procedure TestCreateBoolean;
@@ -3497,7 +3499,7 @@ begin
   AssertEquals('6 Existing case-insensitive match, case insensitive',2,J.IndexOfName(Uppercase(C),true));
 end;
 
-Procedure TTestObject.TestIfFind;
+procedure TTestObject.TestIfFind;
 Var
   B: TJSONBoolean;
   S: TJSONString;
@@ -3814,6 +3816,47 @@ begin
   end;
 end;
 
+procedure TTestObject.TestCreateQWord;
+Const
+  A = 'A';
+  S : QWord = $FFFFFFFFFFFFF;
+
+Var
+  O : TJSONObject;
+
+begin
+  O:=TJSONObject.Create([A,S]);
+  try
+    TestJSONType(O,jtObject);
+    TestItemCount(O,1);
+    TestJSONType(O[A],jtNumber);
+    TestJSON(O,'{ "A" : '+IntToStr(S)+' }');
+  finally
+    FreeAndNil(O);
+  end;
+end;
+
+procedure TTestObject.TestCreateQWordUnquoted;
+Const
+  A = 'A';
+  S : QWord = $FFFFFFFFFFFFF;
+
+Var
+  O : TJSONObject;
+
+begin
+  TJSONObject.UnQuotedMemberNames:=True;
+  O:=TJSONObject.Create([A,S]);
+  try
+    TestJSONType(O,jtObject);
+    TestItemCount(O,1);
+    TestJSONType(O[A],jtNumber);
+    TestJSON(O,'{ A : '+IntToStr(S)+' }');
+  finally
+    FreeAndNil(O);
+  end;
+end;
+
 procedure TTestObject.TestCreateBoolean;
 
 Const