Delphi中Json之superobject

superobject版本为1.2

开发环境D7

太容易忘记了，做个笔记

//1. Json的数组添加和赋值 

var
  Ijson,Ijson_01:ISuperObject;
  s:string;
  i:Integer;
begin
  Ijson:=superobject.SO('{}');
  Ijson.S['Set01']:='0000';
  Ijson.S['Set02']:='1111';
  Ijson.s['WhereSQLSet']:='WHere sdghfgj=sdfjhdf';
  Ijson['WhereSQLSetDisplay']:=superobject.SA([]);
  Ijson_01:=superobject.SO('{}');
  for i:=1 to 10 do
  begin
    Ijson_01.S['ID']:=IntToStr(i);
    Ijson_01.S['Name']:='A_'+IntToStr(i);
    Ijson.A['WhereSQLSetDisplay'].Add(Ijson_01);
  end;
 Memo3.Text:=Ijson.AsString;
end;

//2. 数组中套数组

var
  Ijson,Json_array:ISuperObject;
  s:string;
  i:Integer;
begin
  Ijson:=superobject.SO('{}');
  Ijson.S['Set01']:='0000';
  Ijson.S['Set02']:='1111';
  Ijson.s['WhereSQLSet']:='WHere sdghfgj=sdfjhdf';
  Ijson['WhereSQLSetDisplay']:=superobject.SA([]);
  //Ijson_01:=superobject.SO('{}');
  Memo3.Clear;
  for i:=1 to 10 do
  begin
    Json_array:= superobject.SA([]);
    Json_array.AsArray.S[0] :=IntToStr(i);
    Json_array.AsArray.S[1] :='A_'+IntToStr(i);
    Ijson.A['WhereSQLSetDisplay'].Add(Json_array);

  end;
  Memo3.Text:=Ijson.AsString;
end;

//3.读取2中的Memo3的数组值

var
  Ijson,Ijson_array:ISuperObject;
  vs:string;
  i:Integer;
begin
  Ijson:=superobject.SO(Memo3.Text);
  //读数组
  vs:='';
  Memo4.Clear;
  for i:=0 to 9 do
  begin
    Ijson_array:=superobject.SO(Ijson['WhereSQLSetDisplay'].AsArray.s[i]);
    vs:=Ijson_array.AsArray.s[0]+';'+
    Ijson_array.AsArray.S[1];
    memo4.Lines.Add(vs);
  end;
end;

//4.读取这个[{"name":"A000000","teacher":"Tea000000","classroom":"C_R000000"},{"name":"A000001","teacher":"Tea000001","classroom":"C_R000001"}]

只提供思路，代码片段，一种写法

 jo := SO(str);

    
    for i:=0 to jo.AsArray.Length-1   do  //jo.AsArray.Length-1
    begin
      Append;
      FieldByName('name').Value := jo.AsArray[i]['name'].AsString;
      FieldByName('teacher').Value :=jo.AsArray[i]['teacher'].AsString;
      FieldByName('classroom').Value :=jo.AsArray[i]['classroom'].AsString;
      
    end;