paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 06:08:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-json: less hints

Browse Source 
git-svn-id: trunk@41480 -
This commit is contained in:
Mattias Gaertner 2019-02-26 12:42:27 +00:00
parent 45a5a1d9bf
commit 7354b2c2e5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-json/src/fpjson.pp
View File

@ -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;