生成JSON：var
json: ISuperObject;
i: Integer;
jsonList, jsonRow: ISuperObject;
begin
json := SO();
jsonList := SO('[]');
try
try
for I := 0 to EventList.Count - 1 do
begin
JSON数据的生成与解析。首先先到网上下载一个json jar包，我用的是org.json演示样例代码：package json;
import org.json.JSONArray;
import org.json.JSONObject;
public class Main {
/**
* 生成Json数据
*/
public static String createJson()
