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就不帶雙引號了。