浏览代码

* Merging revisions 45252 from trunk:
------------------------------------------------------------------------
r45252 | michael | 2020-05-04 11:54:39 +0200 (Mon, 04 May 2020) | 1 line

* Better uses clause for Delphi, less warnings
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@45253 -

michael 5 年之前
父节点
当前提交
529ab21bbb
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/fcl-json/src/fpjsontopas.pp

+ 2 - 1
packages/fcl-json/src/fpjsontopas.pp

@@ -397,7 +397,8 @@ begin
   if (S<>'') and (S[1]<>',') then
     S:=', '+S;
   if jpoDelphiJSON in Options then
-    S:='JSON'+S
+    // Collections to avoid warnings about unexpanded inlines
+    S:='System.Generics.Collections, JSON'+S
   else
     S:='fpJSON'+S;
   S:='SysUtils, Classes, '+S;