遍历TJsonObject

遍历TJsonObject

  for var pair: TJSONPair in jo do
  begin
    if pair.JsonValue is TJSONString then
    begin
//do something
    end;
    jo.Pairs[i].JsonString.Value;//key
    jo.Pairs[i].JsonValue.Value;//value
  end;