jsonvaluety

type jsonvaluety = record

  case kind: jsonkindty of

    jok_empty, jok_error: (

        err: record

        end;

      );

    jok_object: (

        obj: pointer;

      );

    jok_array: (

        ar: pointer;

      );

    jok_value: (

        val: jsondataty;

      );

end;