Работа с JSON (System.JSON)

[nibufep]

Добрый день!

Имеется JSON код:

{
  "name1": [
    {
      "name": "blablalba",
      "status": "statusOK"
    },
    {
      "name": "blablalba",
      "status": "statusNeOK"
    }
  ],
  "name2": [
    {
      "name": "blablalba",
      "status": "statusOK"
    },
    {
      "name": "blablalba",
      "status": "statusNeOK"
    }
  ]
}

Delphi код:

procedure TForm1.Button1Click(Sender: TObject);
var
  JSON: TJSONObject;
  JSONArray: TJSONArray;
  i, j: Integer;
begin
  JSON := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject;
  JSONArray := TJSONArray(JSON.Get('name1').JsonValue);
  for i := 0 to JSONArray.Count - 1 do
  begin
    for j := 0 to TJSONArray(JSONArray.Items[i]).Count - 1 do
    begin
      Memo2.Lines.Add(TJSONPair(TJSONArray(JSONArray.Items[i]).Items[j]).JsonValue.Value);
    end;
    Memo2.Lines.Add('_____________');
  end;
end;

Вопрос такой: мне допустим нужно из "name1" получить все массивы со статусом "statusOK", это можно сделать только перебирая весь массив циклом и проверять через if ? Или можно сделать как-то проще ?

[nibufep]

Помогите с записью. Вот так работает если массив "name1" уже есть, но если он не создан то вылазит ошибка, как проверить его отсутствие и создать?

  jsobj := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject;
  jsa := TJSONArray(jsobj.Get('name1').JsonValue);

  jso := TJsonObject.Create();
  jso.AddPair(TJsonPair.Create('name', '1_1'));
  jso.AddPair(TJsonPair.Create('status', '1_2_2'));
  jsa.AddElement(jso);

  jso := TJsonObject.Create();
  jso.AddPair(TJsonPair.Create('name', 'x_x'));
  jso.AddPair(TJsonPair.Create('status', 'x_y_y'));
  jsa.AddElement(jso);

  with TStringList.Create do
  begin
    Text := jsObj.ToJSON;
    SaveToFile('1.json');
    Free;
  end;

[nibufep]

Правильно ли будет сделать так?

  jsa := jsobj.GetValue('name1') as TJSONArray;

  if not (assigned(jsa)) then
  begin
    jsa := TJsonArray.Create();
    jsp := TJSONPair.Create('name1', jsa);
    jsObj.AddPair(jsp);
  end;

[kropotkina-alice]

Почитайте про try..except

try
jsa := jsobj.GetValue('name1');
except
jsa := TJsonArray.Create();
...
end;