JSON (ISuperObject) как сформировать json объект

[Alar]

remus-xe2 создал тему:


помогите сформировать json объект:
мне нужно

{
	"reply_markup": {
		"inline_keyboard": [
			[{
					"text": "A",
					"callback_data": "A1"
				},
				{
					"text": "B",
					"callback_data": "C1"
				}
			]
		]
	}
}

inline_keyboard- массив в котором содержатся другие массивы, а у меня пока только так получается :

{
	"reply_markup": {
		"inline_keyboard": [
			{
					"text": "A",
					"callback_data": "A1"
				},
				{
					"text": "B",
					"callback_data": "C1"
				}
			
		]
	}
}

мой код:

       jsbtn:=SO;
       with jsbtn.A['inline_keyboard'].o[jsbtn.A['inline_keyboard'].Length] do
       begin
              S['text']  := 'test';
              S['callback_data']  := 'test';
       end;

[ADSoft]

думаю логичнее было разместить в теме для того языка на котором написано.. имхо - какой-то Паскаль, к общим веб технологиям ну никак не относится кроме одного слова - json