paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +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} {$else}
With Elements[i] do With Elements[i] do
Case VType of Case VType of
vtChar : AName:=VChar; vtChar : AName:=TJSONUnicodeStringType(VChar);
vtString : AName:=vString^; vtString : AName:=TJSONUnicodeStringType(vString^);
vtAnsiString : AName:=UTF8Decode(StrPas(VPChar)); vtAnsiString : AName:=UTF8Decode(StrPas(VPChar));
vtPChar : AName:=StrPas(VPChar); vtPChar : AName:=TJSONUnicodeStringType(StrPas(VPChar));
else else
DoError(SErrNameMustBeString,[I+1]); DoError(SErrNameMustBeString,[I+1]);
end; end;