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;