用的Delphi XE 10,引入了System.JSON自带的json处理包进行JSON数据的解析等工作,发现每次在调用GetValue().toString后,总会存在双引号的问题,例如:
JSON数据是:
{
"app_id": "HP8300_DEV",
"module_index": "5",
"module_id": "nydp",
"module_name": "农业大棚",
"content": "农业大棚",
"auto_start": "0"
}
代码:
strAppId:=jsonRecord.GetValue('app_id').ToString;
此时的strAppId就是带双引号的:"HP8300_DEV",用的时候需要进行
strAppId:=strAppId.replace('"','');
去掉双引号。
后来发现另一种写法,可以不用replace,直接得出结果,但是其实也挺麻烦的。
strModuleId:=jsonRecord.Get('module_id').JsonValue.Value;
此时的strModuleId就不带双引号了。