zoukankan      html  css  js  c++  java
  • delphi json用法

    用法:uses Superobject, Sperjson
    delphi里有json单元。 procedure TForm2.SuperObjectClick(Sender: TObject); var str: string; jo1: ISuperObject; begin jo1 := SO('{}');// 初始化 with jo1.O['recieve'] do begin S['status'] := 'OK'; S['module'] := 'Windows'; S['act' ] := 'enter'; with jo1.O['parm'] do begin //这里用with,下面所有的元素都可以减一层,就不用每一行 写jo1.O['parm'] .S[…] I['CardID' ] := 4; // I: integer S['Park' ] := ''; // S: stirng S['PN' ] := 'asd'; B['PNR' ] := True; // B: BOOL end; end; memo1.Lines.Add ('JSON值: ' + jo1.AsJSON(True)); // 加True按格式换行显示

     若还想在jo1上多加一层嵌套,则只需再定义个jo2,

    jo2 := SO('{}');

    jo2.O['data']:= jo1;

    (最近接触到json,开始还有点抵触,用多了感觉蛮好玩的,
    特别是里面什么都可以放,整形I,数组A,对象O,布尔型B等等,
    而且delphi用起来也很方便,可以直接放文本,当变量,里面的值也可以随时改变,真的太方便了。
    取值时,也是一层一层的取,若前面都一样可以用with...do...去掉不要的层级.
    需要注意的是大小写取值时要区分。)

  • 相关阅读:
    Visual Source Safe的使用方法
    二十道经典C#面试题
    C#中转义符
    在自己迷惑的时候,提醒自己
    C#中多态
    C#重载和重写
    DataTable定义
    C#怎么调用方法
    mysql数据类型——字符串char(m)和varchar(m)
    mysql数据类型——时间类型
  • 原文地址:https://www.cnblogs.com/studypanp/p/4781018.html
Copyright © 2011-2022 走看看