自带的JSON库读取

方法：

TJSONObject.GetValue<string>('path')

结果：系统04

{
    "errcode":0,
    "errmsg":"ok",
    "result":{
        "has_more":false,
        "list":[
            {
                "name":"系统04",
                "userid":"21440925221347449207"
            }
        ]
    },
    "request_id":"15s84fqhxodpx"
}

Response := HttpPost(Content, 'topapi/user/listsimple');
    try
      if ParseResponse(Response) then
      begin
        JsonString:=Response.GetValue<string>('result.list[0].name');
        Result :=JsonString; 
      end; 
     finally  
       FreeAndNil(Response); 
     end;

标签：JsonString,end,读取,04,GetValue,JSON,result,自带,Response
来源： https://www.cnblogs.com/redhat588/p/16138529.html