Ver código fonte

fcl-json: less hints

git-svn-id: trunk@41480 -
Mattias Gaertner 6 anos atrás
pai
commit
7354b2c2e5
1 arquivos alterados com 3 adições e 3 exclusões
  1. 3 3
      packages/fcl-json/src/fpjson.pp

+ 3 - 3
packages/fcl-json/src/fpjson.pp

@@ -3171,10 +3171,10 @@ begin
     {$else}
     With Elements[i] do
       Case VType of
-        vtChar       : AName:=VChar;
-        vtString     : AName:=vString^;
+        vtChar       : AName:=TJSONUnicodeStringType(VChar);
+        vtString     : AName:=TJSONUnicodeStringType(vString^);
         vtAnsiString : AName:=UTF8Decode(StrPas(VPChar));
-        vtPChar      : AName:=StrPas(VPChar);
+        vtPChar      : AName:=TJSONUnicodeStringType(StrPas(VPChar));
       else
         DoError(SErrNameMustBeString,[I+1]);
       end;