json串解析单元。简单易用,没有bug。使用方法如下:varResponseJson:string;Json,childJson:TlkJSONobject;beginJson:=TlkJson.ParseText(ResponseJson)asTlkJsonObject;trySuccess:=Trim(Json.Field['success'].Value);Msg:=Trim(Json.Field['msg'].Value);childJson:=Json.Field['data']as