JSON数组读取和保存

生成JSON数组：

var
    jsonMain: ISuperObject;
begin 
---DEMO1----
    jsonMain := SO('[]');
    jsonMain.AsArray.S[0] := 'D:\1.1005';
    jsonMain.AsArray.S[1] := 'D:\2.1005';
---DEMO2----

    jsonItem := SO();

    jsonList := SO('[]');
    for j := 0 to AnalysisResultList[I].lstDT.Count - 1 do
    begin
      jsonRow := SO('{}');                
      jsonRow.S['dtEvent']:=AnalysisResultList[I].lstDT.Strings[J];
      jsonList.AsArray.Add(jsonRow);
    end;
      
    jsonItem.S['strItemName'] := AnalysisResultList.Items[I].strItemName;
    jsonItem.O['EventList'] := jsonList;

    jsonMain.AsArray.Add(jsonItem);
  
end;

读取JSON数组

var
  arrLKJFile: TSuperArray;
begin
  arrLKJFile := SO(DD).AsArray;
  for i := 0 to arrLKJFile.Length - 1 do
  begin 
   //arrLKJFile.S[I]
  end;
end;