Merge pull request #7 from Valdeirsk8/FixingStackOverFlow

fixing stack overflow in ToJsonObject and ToJsonArray

Author: viniciussanchez

src/core/Ragna.Impl.pas

@@ -174,14 +174,14 @@ procedure TRagna.ToJson(out AJSON: TJSONObject);
 
 function TRagna.ToJSONArray: TJSONArray;
 begin
-  Result := FQuery.ToJSONArray;
+  Result := (FQuery as TDataSet).ToJSONArray;
 end;
 
 function TRagna.ToJSONObject: TJSONObject;
 begin
   if FQuery.IsEmpty then
     RaiseNotFound;
-  Result := FQuery.ToJSONObject;
+  Result := (FQuery as TDataSet).ToJSONObject;
 end;
 
 procedure TRagna.ToJson(out AJSON: TJSONArray);