allow JSON string for the name of an identifier for TTextWriter.Regis…

…terCustomJSONSerializerFromText()
synopse · Oct 9, 2019 · b7a3783 · b7a3783
1 parent 3d5a0d3
commit b7a3783
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/SynCommons.pas b/SynCommons.pas
@@ -43295,8 +43295,12 @@ procedure TJSONRecordTextDefinition.Parse(Props: TJSONCustomParserRTTI;
   PropsMax := 0;
   while (P<>nil) and (P^<>#0) do begin
     // fill Props[]
-    if not GetNextFieldProp(P,PropsName[PropsMax]) then
+    if P^='"' then begin // use JSON string to customize the name
+      if not GetJSONItemAsRawUTF8(P,PropsName[PropsMax]) then
       break;
+    end else // regular object pascal identifier (i.e. 0..9,a..z,A..Z,_)
+      if not GetNextFieldProp(P,PropsName[PropsMax]) then
+        break;
     case P^ of
     ',': begin
       inc(P);

diff --git a/SynopseCommit.inc b/SynopseCommit.inc
@@ -1 +1 @@
-'1.18.5400'
+'1.18.5401'