Delphi XE 的TJSONObject在取值GetValue以及ToString后获得的值出现双引号的解决办法

用的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就不带双引号了。