ToJson has some bug!

[iamnewaplayer]

src "_GCV_0_A": "24", dst "_GCV_0d\u0000": "24",

I don't know what happened！ i used JsonDataObjects.ToJson() to save to Mongo Sometimes this kind of error occurs some string end error whit key or value

[PatrickvL]

If you're taking the trouble to report an issue, at least supply all relevant details. (And a small fully contained reproduction scenario)

[ahausladen]

I can't reproduce this with the following code:

procedure TestTJsonObject.TestIssue71;
var
  Json: TJsonObject;
  S: string;
begin
  Json := TJsonObject.Parse('{ "_GCV_0_A": "24" }') as TJsonObject;
  try
    CheckEquals(
      '{' + JsonSerializationConfig.LineBreak +
      JsonSerializationConfig.IndentChar + '"_GCV_0_A": "24"' + JsonSerializationConfig.LineBreak +
      '}' + JsonSerializationConfig.LineBreak, Json.ToJSON(False));
  finally
    Json.Free;
  end;
end;

You could try to disable one or both of the following defines:

• USE_LAST_NAME_STRING_LITERAL_CACHE
• USE_FAST_STRASG_FOR_INTERNAL_STRINGS

Maybe something is fishy with those optimizations, as the string seems to be modified. Or there is something else overwriting the memory outside of JsonDataObjects, that possibility always exists.

[iamnewaplayer]

i try it,but do not work; i have only one line use this

UserItem.Custom['GCV'+nAbilSite.ToString+'_A']:=nValue.ToString;

property Custom[const v: string]: String read GetStringValue write SetStringValue; procedure TUserItem.SetStringValue(const v: string; Value: string); begin if v.Length>0 then Values.O['Custom'].S[v] := Value; end;

some time UserItem.values.tojson has this error; maybe key empty maybe like _GCV_0d\u0000

i assign this Custom Value only this one line.

[iamnewaplayer]

some places i used useritem.values = useritem.values.clone

[iamnewaplayer]

like this

HumData.O['BagItems'].O[i.ToString] := pTUserItem(m_ItemList.Items[i]).Values.Clone;

[iamnewaplayer]

i used delphi 11.0

[fastbike]

How about providing a project that reproduces the bug, so some others can test it for you. Leaving shouty comments on the ticket is of no use. Thanks.

[iamnewaplayer]

can't reproduces the bug by myself.. it is occur in production environment