网站首页
登录
答题先锋网-做最好的答题器 ----> Delphi的第三方JSON解析类XSuperObject的使用实例

Delphi的第三方JSON解析类XSuperObject的使用实例

作者:张抱 发布于:2016-5-11 8:50 Wednesday 分类:技术

var

 X: ISuperObject;

I:integer;

begin

 X:=SO();

 X.I['Result'] := 1;
      X.A['UserRight'].Clear;
      while not qry1.Eof do
      begin
        with X.A['UserRight'].O[I] do
        begin
          S['FunCode'] := qry1.FieldByName('FunCode').AsString;
          S['FunName'] :=qry1. FieldByName('FunName').AsString;
          S['IsEnable'] := qry1.FieldByName('IsEnable').AsString;
        end;
        inc(I);
        qry1.next;
      end;
end;
标签: XsuperObject JSON « Delphi XE自带JSON的使用方法总结 | XE8发布iOS APP时报错“ 'DTPlatformName' is required”»

热烈欢迎各位留言,本人会虚心听取各位意见!


sitemap