ReadFromString(Value: String);
Value. Строковое значение, содержащее в себе JSON-структуру.
Метод ReadFromString загружает JSON-структуру из строки.
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;
Функция ReadFromString используется для получения JSON-структуры из строки. Информация об отдельных элементах структуры будет выведена в консоль среды разработки.
См. также: