Registriert seit: 14. Apr 2008
3.006 Beiträge
Delphi 2009 Professional
|
AW: Maskierten JSON-String demaskieren
24. Jun 2019, 13:05
Mit https://github.com/ahausladen/JsonDataObjects sollte das kein Problem sein:
1. String parsen
Delphi-Quellcode:
var
Obj: TJsonObject;
Result: string;
begin
Obj := TJsonObject.Parse('{\n \"value\": null,\n \"valueType\": \"String\"\n}') as TJsonObject;
2. JSON im kompakten Format einem String zuweisen:
Delphi-Quellcode:
ShowMessage(Obj.ToJSON({Compact:=}True));
finally
Obj.Free;
end;
|