IJsonDocument.ReadFromString

ReadFromString(Value: String);

ReadFromString(Value: String);

Sub ReadFromString(Source: String);
Var
    Doc: IJsonDocument;
    JSON: IJsonObject;
Begin
    Doc := New JsonDocument.Create;
    Doc.ReadFromString(Source);
    JSON := Doc.Root;
    ShowElements(JSON);
End Sub ReadFromString;

Sub ShowElements(JSON: IJsonObject);
Var
    i, c: Integer;
    Element: IJsonElement;
Begin
    c := JSON.Count - 1;
    For i := 0 To c Do
        Element := JSON.ItemByIndex(i);
        Debug.WriteLine("Name: " + JSON.Property_(i));
        Debug.Write("Type: " + Element.GetType.ToString + ". Value: ");
        Select Case Element.GetType
            Case JsonElementType.Boolean: Debug.WriteLine(Element.AsBoolean);
            Case JsonElementType.Double: Debug.WriteLine(Element.AsDouble);
            Case JsonElementType.Integer: Debug.WriteLine(Element.AsInteger);
            Case JsonElementType.NullValue: Debug.WriteLine("null value");
            Case JsonElementType.String: Debug.WriteLine(Element.AsString);
        End Select;
    End For;
End Sub ShowElements;

Imports Prognoz.Platform.Interop.ForeSystem;

Sub ReadFromString(Source: String);
Var
    Doc: IJsonDocument = New JsonDocumentClass();
    JSON: IJsonObject;
Begin
    Doc.ReadFromString(Source);
    JSON := Doc.Root;
    ShowElements(JSON);
End Sub;

Sub ShowElements(JSON: IJsonObject);
Var
    i, c: Integer;
    Element: IJsonElement;
Begin
    c := JSON.Count - 1;
    For i := 0 To c Do
        Element := JSON.ItemByIndex[i];
        System.Diagnostics.Debug.WriteLine("Name: " + JSON.@Property[i]);
        System.Diagnostics.Debug.Write("Type: " + Element.GetType.ToString() + ". Value: ");
        Select Case Element.GetType
            Case JsonElementType.jetBoolean: System.Diagnostics.Debug.WriteLine(Element.AsBoolean);
            Case JsonElementType.jetDouble: System.Diagnostics.Debug.WriteLine(Element.AsDouble);
            Case JsonElementType.jetInteger: System.Diagnostics.Debug.WriteLine(Element.AsInteger);
            Case JsonElementType.jetNullValue: System.Diagnostics.Debug.WriteLine("null value");
            Case JsonElementType.jetString: System.Diagnostics.Debug.WriteLine(Element.AsString);
        End Select;
    End For;
End Sub;