Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Генерировать массив массивов в superobject (старый, 1.2) / 4 сообщений из 4, страница 1 из 1
10.04.2019, 19:29
    #39799622
mkr
mkr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Генерировать массив массивов в superobject (старый, 1.2)
есть json
Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
{
    text: 'Please give us your phone number',
    reply_markup: {
        keyboard: [
            [{
                text: 'Share my phone number',
                request_contact: true
            }]
        ],
        resize_keyboard: true,
        one_time_keyboard: true}
}


одиночный массив keyboard генерирую без вопросов
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
var
  JsonToSend: string;
   json_sub, json_sub_sub: ISuperObject;
begin
  json := SO;
  json.S['text'] := 'Share my phone number';

  json_sub_sub := SO;
  json_sub_sub.S['text'] := 'Share my phone number';
  json_sub_sub.B['request_contact'] := true;

  json_sub := SO;
  json_sub.O['keyboard'] := SA([]);
  json_sub.A['keyboard'].Add(json_sub_sub);
  json_sub.B['resize_keyboard'] := true;
  json_sub.B['one_time_keyboard'] := true;

  json.O['reply_markup'] := json_sub;

  JsonToSend := json.AsString;
end;


но что-то подвисаю на вопросе того, как массив добавить в массив...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2019, 20:10
    #39799631
Foxpc
Foxpc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Генерировать массив массивов в superobject (старый, 1.2)
Что значит массив добавить в массив? Ты же это делаешь


Код: pascal
1.
json_sub_sub.add( .... );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2019, 20:18
    #39799633
ёёёёё
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Генерировать массив массивов в superobject (старый, 1.2)
mkr,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
var
  fSO: ISuperObject;
  fSOReplay: ISuperObject;
  fSOKeyboardItem: ISuperObject;

  fArr: ISuperObject;
  fInnerArr: ISuperObject;
  i: Integer;
  j: Integer;

begin
  fSO := SO();
  fSOReplay := SO();
  fSO.S['text'] := 'Please give us your phone number';
  fSO.O['replay_markup'] := fSOReplay;
  fSOReplay.B['resize_keyboard'] := true;
  fSOReplay.B['one_time_keyboard'] := true;

  fArr := SA([]);
  fSOReplay.O['keyboard'] := fArr; ;

  for i := 0 to 1 do begin
    fInnerArr := SA([]);
    fArr.AsArray.Add(fInnerArr);
    for j := 0 to 1 do begin
      fSOKeyboardItem := SO();
      fSOKeyboardItem.S['text'] := Format('Share my phone number %d %d', [i, j]) ;
      fSOKeyboardItem.B['request_contact'] := true;
      fInnerArr.AsArray.Add(fSOKeyboardItem);
    end;
  end;

  ShowMessage(fSO.AsJSon(True, False));

end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2019, 09:36
    #39799726
mkr
mkr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Генерировать массив массивов в superobject (старый, 1.2)
ёёёёё...
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Генерировать массив массивов в superobject (старый, 1.2) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 445ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039590]:
 0ms
get settings:
 6ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 196ms
total:  445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]