Идея в том, что нужно "нарисовать" клавиатуру для Телеграм. Есть ранее созданный список из ID + имён (из таблицы), данные вставлены в TDictionary<integer, String>.
Клавиатура создаётся в цикле. Это просто матрица из кнопок N на M. Каждой кнопке нужно присвоить своё имя (Caption) и ID, чтобы потом получить ID кнопки, которую нажал пользователь. Т.к. ID из базы, то идут не по порядку и не с 0, конечно же.
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.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Var
DicTypes: TDictionary<integer, String>;
Kb: TtgInlineKeyboardMarkup;
InlineKeyboardButton: TtgInlineKeyboardButton;
AKeyboardRow: TArray<TtgInlineKeyboardButton>;
idxRow, idxBtn, iSelectedBtn, idxButton: Integer;
RowQ: Integer;// кол-во строк (рядов с кнопками)
BtnQ: Integer;// кол-во кнопок в одном ряде
...
begin
...
...
DicTypes := GetTypes(.....);//получить данные из БД, например, 10 записей
if Assigned(DicTypes) then
begin
RowQ := DicTypes.Count div 3;// рядов с кнопками
BtnQ := DicTypes.Count - RowQ; // кнопок в одном ряду
idxButton := 0;
Kb := TtgInlineKeyboardMarkup.Create;
// создаем матрицу из кнопок
for idxRow := 0 to pred(RowQ) do//цикл по рядам
begin
SetLength(AKeyboardRow, 0);// обнуляем кол-во кнопок в строке
for idxBtn := 0 to pred(BtnQ) do// цикл по кнопкам в одном ряду
begin
где-то здесь нужно вытащить данные из DicTypes по idxButton, чтобы присвоить имя и код очередной кнопке
//создаем кнопку
InlineKeyboardButton := TtgInlineKeyboardButton.Create(имя , код id);
//добавляем кнопку в ряд с помощью хелпера
TAppender<TtgInlineKeyboardButton>.Append(AKeyboardRow, InlineKeyboardButton);
Inc(idxButton);
end;
//добавляем ряд с кнопками в клавиатуру
Kb.AddRow(AKeyboardRow);
end;
end;// if
...
...
