program Turbo;

{$APPTYPE CONSOLE}

uses
  SysUtils, flcJSON;

procedure DoIt;

var
  fJSO: TJSONObject;
  fJSO2: TJSONObject;
  fJSV: TJSONValue;

  fJSA: TJSONArray;
  i: Integer;

begin
  fJSO := TJSONObject.Create;
  try
    fJSA := TJSONArray.Create;

    // Заполнение массива объектами
    // первый объект
    fJSO2 := TJSONObject.Create;
    fJSO2.Add('int', TJSONInteger.Create(64));
    fJSA.Append(fJSO2);
    // второй объект
    fJSO2 := TJSONObject.Create;
    fJSO2.Add('str', TJSONString.Create('string'));
    fJSA.Append(fJSO2);

    fJSO.Add('array', fJSA);
    Writeln('Src json:');
    writeln(fJSO.GetJSONString([jboIndent])); // Что получилось

    // Разбор json на элементы массива
    writeln('~~~~~~~~~~'); //
    fJSA := fJSO.GetItemAsArray('array'); // Получение массива

    for i := 0 to fJSA.Count - 1 do begin
      fJSV := fJSA.Item[i];
      writeln('item ', i); //                       
      writeln(fJSV.GetJSONString([jboIndent])); // Элемент
    end;
  finally
    fJSO.Free;
  end;
end;
begin
  doIt;
  readln;
end.