The text to JSON Activity parses a string into a TJSONValue object.
uses System.JSON.TJSONObject.ParseJSONValue
Activity properties
begin var JSON: TJSONValue; JSON := TJsonObject.ParseJsonValue('{"menu": {' + ' "id": "file",' + ' "value": "File",' + ' "popup": {' + ' "menuitem": [' + ' {"value": "New", "onclick": "CreateNewDoc()"},' + ' {"value": "Open", "onclick": "OpenDoc()"},' + ' {"value": "Close", "onclick": "CloseDoc()"}' + ' ]' + ' }' + '}}'); end; |
Resulting code