powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Генерировать массив массивов в superobject (старый, 1.2)
4 сообщений из 4, страница 1 из 1
Генерировать массив массивов в superobject (старый, 1.2)
    #39799622
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть 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
Генерировать массив массивов в superobject (старый, 1.2)
    #39799631
Foxpc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что значит массив добавить в массив? Ты же это делаешь


Код: pascal
1.
json_sub_sub.add( .... );
...
Рейтинг: 0 / 0
Генерировать массив массивов в superobject (старый, 1.2)
    #39799633
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Генерировать массив массивов в superobject (старый, 1.2)
    #39799726
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ёёёёё...
спасибо
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Генерировать массив массивов в superobject (старый, 1.2)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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