如何获取json的个数？_百度知道
如何获取json的个数？
var title = {//顶级分类
&name&:&行政区划（个）&,
&n1&:{//二级分类
&sec&:&乡、镇、街道办事处&,
&m&:{//三级分类
&name1&:'乡',
&name2&:'镇',
&name3&:'办事处'
我有更好的答案
方法有很多，例如：用for循环遍历数据,要想知道个数就在循环里用 i++计数在json中多加个字段，就是json总数
采纳率：63%
来自团队：
只能用for...in遍历,要想知道个数就在循环里用 i++计数吧
本回答被提问者采纳
为您推荐：
其他类似问题
您可能关注的内容
json的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。QJSON – Delphi下快速的JSON解决方案 – QDAC官方网站
& QJSON – Delphi下快速的JSON解决方案
JSON做为一个后起的通用数据交换格式，Delphi后期的版本虽然提供了原生的支持，但早期并没有提供支持，由此产生了许多的JSON解析器，如lkJson、SuperObject的Json单元、RTC的Json单元，但当我们要找到符合下述要求的JSON组件时，会发现几乎没有什么选择：
√ 开源，可以免费使用
√ 跨平台，支持Win32/Win64/Andriod/iOS/OSX
√ 速度快，能够媲美Java原生速度
如果你在寻找符合上述要求的JSON解析器，那么QDAC项目组的QJSON将是目前不二的选择，它的优势在于：
√ 完全开源
√ 全中文注释和函数说明
√ 跨平台，支持Win32/Win64/Andriod/iOS/OSX
√ 支持Ansi/Utf8/Unicode LE/Unicode BE编码的JSON数据(唯一一个在移动平台支持Ansi编码的JSON数据）
√ 兼容性强，兼容国内多种非标准的JSON格式的解析
√ 速度快，解析速度是目前Delphi各种原生JSON解析器中最快的（截止QJSON解析器完成时），在我的机器上，实测解析和保存速度可以达到30MB/S以上
√ 同时支持Delphi/C++ Builder
项目开源地址：http://sourceforge.net/projects/qdac3/
源码在线浏览：http://sourceforge.net/p/qdac3/code/HEAD/tree/Source/
QJSON源码文件包含：qdac.inc、qstring.pas、qrbtree.pas、qjson.pas，如果是Delphi 2010及以前的版本，还需要pcre.pas、PerRegEx.pas及pcre目录下的内容，以支持正则表达式处理，如果是在C++ Builder编译，还需要附带msvcrt.lib。
QJSON的演示程序：http://sourceforge.net/p/qdac3/code/HEAD/tree/Demos/Delphi/VCL/QJson/
盒子讨论链接：http://bbs.2ccc.com/topic.asp?topicid=454307
麦子仲肥麦子仲肥swish文章归档随笔 - 2146&
文章 - 96&评论 - 11752&trackbacks - 253
随笔分类 - 47.Delphi 与 JSON
摘要: 闲话: 正在用 WebBroker 写一个小网站，感受颇多： 1、如果是写一个小东西，应该先考虑下 WebBroker，因为它是分分钟即可上手的。 2、如果要写一个大东西，或许也应该考虑下 WebBroker，因为相比其他它有着最高的灵活度(但这只是想像，因为我只是写了一个小东西)。 3、Delph
万一 阅读(21459) |
摘要: macrolen 给了这样一些数据, 说是用淘宝的 API 获取的 JSON 数据, 让我帮助解析:{"items_search_response":{"item_search":{"item_categories":{"item_category":[{"category_id":150708,"count":66},{"category_id":,"count":93},{"c...
万一 阅读(11094) |
摘要: 调用 Google 翻译的地址格式:http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + 原始文本 + "&langpair=" + 原语言 + "%7C" + 目标语言返回的数据格式如下, 可以用 responseData.translatedText 简单获取:{
"responseData" : {"...
万一 阅读(6276) |
摘要: 同上例类似, 通过 'http://clients1.google.cn/complete/search?&q=' + "关键字" 可以获取 Google 的关键字搜索排名.我用 Delphi 为关键字得到的结果是:window.google.ac.h(
["Delphi",[ ["delphi 教程", "375,000 结果", "0"], ["delphi盒子", "74,900 结果",...
万一 阅读(3650) |
摘要: 本例测试效果图:代码文件:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Memo1: TM Edit1: TE Button1: TB...
万一 阅读(5479) |
摘要: SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject.SuperXmlParser 只有三个函数: XMLParseString、XMLParseStream、XMLParseFile, 分别从字符串、流、文件中解析.遗憾的是对中文不够友好. unit Unit1;interfaceuses
Windows, Mess...
万一 阅读(4914) |
摘要: 通过 SuperObject 的公用函数 SO 实现一个 ISuperObject 接口非常方便;前面都是给它一个字符串参数, 它的参数可以是任一类型甚至是常数数组.SA 和 SO 都是返回一 ISuperOSO 可以产生一个 stArray 类型的 ISuperObject, 但 SA 只会产生 stArray 类型的 ISuperOSA 的参数也只能是常数数组.unit...
万一 阅读(6958) |
摘要: 通过 ISuperObject.GetEnumerator 可获取一个 TSuperEnumerator 对象.TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:var
jo: ISuperO
e: TSuperEbegin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, ...
万一 阅读(4224) |
摘要: 通过 ISuperObject.AsObject 可获取一个 TSuperTableString 对象.TSuperTableString 的常用属性: count、GetNames、GetValuesvar
jo: ISuperO
jts: TSuperTableSbegin
jo := SO('{A:1, B:2, C:3, D:{x:4, y:5, z:6}}'...
万一 阅读(5491) |
摘要: unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Button1: TB Button2: TB Button3: TButton...
万一 阅读(4082) |
摘要: unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Button1: TB Button2: TB procedure Button...
万一 阅读(3766) |
摘要: 这几天学习 JSON - SuperObject, 非常幸运地得到了其作者 Henri Gourvest 大师的同步指点! (Henri 大师也是 DSPack 和 GDI+ 头文件的作者; 大师是法国人, 竟能用中文给我回复, 没想到!).学习中发现 SuperObject 有些地方对中文(或者说 Unicode)支持不是所期望的, 现在专贴提出来供大师鉴别.以下例子都会出现乱码, 虽然都可以有...
万一 阅读(8140) |
摘要: 在 JSON 中, 字符串应该在双引号中; 从上个例子才发现: 原来这个双引号可以省略, 有空格都行当然只是在程序代码中可以省略, 对象会自动识别添加的.即如此, 下面写法都可以:uses SuperOprocedure TForm1.Button1Click(Sender: TObject);var
jo1,jo2,jo3: ISuperObegin
jo1 := S...
万一 阅读(5514) |
摘要: SuperObject 的 JSON 对象中还可以包含 "方法", 这太有意思了; 其方法的格式是:procedure Method(const This, Params: ISuperO var Result: ISuperObject);//另外, 这是其数据类型的枚举:TSuperType = (stNull, stBoolean, stDouble, stInt, stObje...
万一 阅读(7737) |
摘要: unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Button1: TB Button2: TB procedure Button...
万一 阅读(7539) |
摘要: unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Button1: TB Button2: TB Button3: TButton...
万一 阅读(11907) |
摘要: 测试数据提前加入 Memo1 中:{
"name": "张三", /* 注释 */
"age": 33,
"sex": true,
"weight": 123.456,
"tel": ["86-1111111", "86-2222222"],
"addresses":{"address":"A省B市", "pc":"100001"},
"children": [ { "name": ...
万一 阅读(21435) |
摘要: SuperObject 构建一个 JSON 的常用方法: 从字符串、从文件、从流.unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm) Button1: TB...
万一 阅读(15831) |
摘要: 一直盼着 Delphi 能够直接支持 "正则表达式" 与 "JSON";Delphi 2009 刚来的时候, 有了 JSON, 但不好, 那时尝试过一点. 这是以前的链接: 什么是 JSON?Delphi 2010 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递...
万一 阅读(32042) |
摘要: JSON(JavaScript Object Notation) 类似与 XML; 虽始于 JavaScript, 但被多种语言支持, 它也成了 Delphi 2009 的新功能之一.假如有一段 XML:2张三99用 json 可以表示为:{"id":2, "name":"张三", "age":99}json 在 JavaScript 中使用异常方便, 譬如://例1:Data = {"id":2...
万一 阅读(22607) |如何提取json中的指定节点数据？
[问题点数：100分，结帖人agot1254]
如何提取json中的指定节点数据？
[问题点数：100分，结帖人agot1254]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2017年11月 Web 开发大版内专家分月排行榜第三2017年6月 Web 开发大版内专家分月排行榜第三2017年3月 Web 开发大版内专家分月排行榜第三2017年2月 Web 开发大版内专家分月排行榜第三2017年1月 Web 开发大版内专家分月排行榜第三2016年11月 Web 开发大版内专家分月排行榜第三
2018年5月 Web 开发大版内专家分月排行榜第一2018年1月 Web 开发大版内专家分月排行榜第一2017年12月 Web 开发大版内专家分月排行榜第一2017年6月 Web 开发大版内专家分月排行榜第一2017年2月 Web 开发大版内专家分月排行榜第一2016年3月 Web 开发大版内专家分月排行榜第一2015年8月 Web 开发大版内专家分月排行榜第一
2018年4月 Web 开发大版内专家分月排行榜第二2018年3月 Web 开发大版内专家分月排行榜第二2018年2月 Web 开发大版内专家分月排行榜第二2017年11月 Web 开发大版内专家分月排行榜第二2017年10月 Web 开发大版内专家分月排行榜第二2017年9月 Web 开发大版内专家分月排行榜第二2017年8月 Web 开发大版内专家分月排行榜第二2017年7月 Web 开发大版内专家分月排行榜第二2017年5月 Web 开发大版内专家分月排行榜第二2017年4月 Web 开发大版内专家分月排行榜第二2017年3月 Web 开发大版内专家分月排行榜第二2017年1月 Web 开发大版内专家分月排行榜第二2016年11月 Web 开发大版内专家分月排行榜第二2016年9月 Web 开发大版内专家分月排行榜第二2016年8月 Web 开发大版内专家分月排行榜第二2016年7月 Web 开发大版内专家分月排行榜第二2016年6月 Web 开发大版内专家分月排行榜第二2016年5月 Web 开发大版内专家分月排行榜第二2016年4月 Web 开发大版内专家分月排行榜第二2016年2月 Web 开发大版内专家分月排行榜第二2015年9月 Web 开发大版内专家分月排行榜第二2015年7月 Web 开发大版内专家分月排行榜第二2015年6月 Web 开发大版内专家分月排行榜第二2015年4月 Web 开发大版内专家分月排行榜第二2015年3月 Web 开发大版内专家分月排行榜第二2015年2月 Web 开发大版内专家分月排行榜第二
匿名用户不能发表回复！|Delphi 中的JSON问题_百度知道
Delphi 中的JSON问题
Data := TJSONObject.C
Data.AddPair('action_name', 'QR_LIMIT_STR_SCENE');
Data.AddPair('action_info', TJSONObject.Create);
with Data.Values['action_info'] as TJSONObject do
AddPair('scene', TJSON...
我有更好的答案
因为Data中没有scene.Data := TJSONObject.C
Data.AddPair('action_name', 'QR_LIMIT_STR_SCENE');
Data.AddPair('action_info', TJSONObject.Create);
with Data.Values['action_info'] as TJSONObject do
AddPair('scene', TJSONObject.Create);
with (Data.Values['action_info'] as TJSONObject).Values['scene'] as TJSONObject do
AddPair('scene_str', '一个字符串');//为什么在这行出错？
采纳率：65%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}