IJsonObject.Contains

Копировать пример

Sub UserProc;
Var
    Doc: IJsonDocument;
    NewJSON: IJsonObjectBuilder;
    JSON: IJsonObject;
    Element: Boolean;
    Name: String;
Begin
    // Загрузим JSON-структуру из указанного файла
    Doc := New JsonDocument.Create;
    Doc.ReadFromFile("D:\Work\Json\testfile.json");
    JSON := Doc.RootElement.AsObject;
    // Проверим, содержится ли в структуре элемент с именем Value
    Name := "Value";
    Element := JSON.Contains(Name);
    If Element Then
        Debug.WriteLine("Элемент содержится в JSON-структуре");
    // Добавим элемент Value со значением 100, если его нет в структуре
    Else
        NewJSON := New JsonObjectBuilder.Create;
        AddExistElement(JSON, NewJSON);
        NewJSON.AddInteger(Name, 100);
        Doc := New JsonDocument.Create;
        Doc.RootElement := NewJSON.Build;
        // Сохраним изменения в файле
        Doc.WriteToFile("D:\Work\Json\testfile.json");
    End If;
End Sub UserProc;

Sub AddExistElement(OldJson: IJsonObject; Var NewJson: IJsonObjectBuilder);
Var
    i, c: Integer;
    Element: IJsonElement;
Begin
    c := OldJson.Count;
    For i := 0 To c - 1 Do
        Element := OldJson.ItemByIndex(i);
        Select Case Element.GetType
            Case JsonElementType.Boolean: NewJson.AddBoolean(OldJson.Property_(i), Element.AsBoolean);
            Case JsonElementType.Double: NewJson.AddDouble(OldJson.Property_(i), Element.AsDouble);
            Case JsonElementType.Integer: NewJson.AddInteger(OldJson.Property_(i), Element.AsInteger);
            Case JsonElementType.NullValue: NewJson.AddNull(OldJson.Property_(i));
            Case JsonElementType.String: NewJson.AddString(OldJson.Property_(i), Element.AsString);
        End Select;
    End For;    
End Sub AddExistElement;