Json解析

//JSON解析
function TForm5.JsonResolve(sStr:string):string;
var
  jSOObj:ISuperObject;
  jOObj:ISuperObject;
  jRoot,jSid:ISuperObject;
  sRoot,sSid:string;
  arrayStr:TSuperArray;
  i:Integer;
begin
  jSOObj := SO(sStr);
  jOObj := jSOObj.O['Class'];
  if jOObj <> nil then
  begin
    sRoot := jSOObj.O['Class'].AsString;
    jOObj := SO(sRoot);
    sSid := jOObj.O['StudentName'].AsString;
    jSid := SO(sSid);
    arrayStr := jSid.AsArray;
    for I := 0 to arrayStr.Length - 1 do
    begin
      MeterData := TMeterData.Create;
      MeterData.sName := arrayStr[i].O['Name'].AsString;
      MeterData.sSex := arrayStr[i].O['Sex'].AsString;
      memo1.Lines.Add(MeterData.sName);
    end;
  end;
end;

测试数据：
  sStr := '{"Class":{"StudentName":[{"Name":"Json","Sex":"G"}]}}';
  JsonResolve(sStr);