从一个VCL项目到TMS WEB Core,我不能再使用“System.JSON”了。
宣布:
LJsonValue: TJsonValue;
LJsonArray: TJsonArray;
LJSonString: TJsonString;
如何翻译VCL线
LJsonValue := LJsonValue.GetValue<TJSonValue>('choices');
LJSonString := LJSonArray.Items[0].GetValue<TJSONString>('text');
对于TMS WEB核心,我找不到不适合JSON的解决方案。
1条答案
按热度按时间tzcvj98z1#
基本上,在TMS Web Core中,您可以使用
WEBLib.JSON
-Unit。使用它,您可以将VCL代码转换为:使用来自单元
JS
的函数TJSJSON.parseObject
,您可以将JSValue
解析为TJSObject
,并使用它可以访问底层JSON节点的所有属性。您还可以将
TJSObject
转换为TJSArray
并迭代它的项。