* Merging revisions r46330 from trunk:

    ------------------------------------------------------------------------
    r46330 | michael | 2020-08-08 14:40:13 +0200 (Sat, 08 Aug 2020) | 1 line
    
    * Remove some warnings/hints
    ------------------------------------------------------------------------

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

packages/fcl-json/src/fpjsonrtti.pp

@@ -425,9 +425,7 @@ procedure TJSONDeStreamer.DoClearProperty(AObject : TObject;PropInfo : PPropInfo
 Var
   PI : PPropInfo;
   TI : PTypeInfo;
-  I,J,S : Integer;
-  A : TJSONArray;
-  JS : TJSONStringType;
+
 begin
   PI:=PropInfo;
   TI:=PropInfo^.PropType;
@@ -458,6 +456,8 @@ begin
       SetOrdProp(AObject,PI,0);
     tkUString :
       SetUnicodeStrProp(AObject,PI,'');
+  else
+{
     tkObject,
     tkArray,
     tkRecord,
@@ -465,7 +465,7 @@ begin
     tkDynArray,
     tkInterfaceRaw,
     tkProcVar,
-    tkMethod :
+    tkMethod }
       Error(SErrUnsupportedPropertyKind,[PI^.Name]);
   end;
 end;