|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отображение различного количества Buttons
Доброго времени суток, форумчане! Не знаю как объяснить в двух словах, поэтому распишу как есть:
1. Имеется таблица из БД в которой к каждому вопросу есть определенное количество вариантов ответа: от 1 до 6. 2. Имеется форма с кнопками: 6 штук (взято по максимуму). Собственно вопрос: Как отображать столько кнопок, сколько вариантов ответов хранится в БД к определенному вопросу, остальные скрываются. |
#2
|
|||
|
|||
Ну, например, есть кнопочки Button1-Button6.
Можно их просто в массив запомнить один раз (что бы каждый раз не искать) Код:
type TForm1 = class(TForm) ... MyButtons : Array [1..6] Of TButton; ... procedure TForm1.FormCreate(Sender : TObject); begin MyButtons[1] := Button1; MyButtons[2] := Button2; MyButtons[3] := Button3; MyButtons[4] := Button4; MyButtons[5] := Button5; MyButtons[6] := Button6; end; Пусть ты получаешь вопросы из БД (догадываюсь, что Access и доступ через ADO). Тогда как-то так: Код:
procedure TForm1.ConfigureButtons(Query : TADOQuery); var I : Integer; begin For I := 1 To 6 Do MyButtons[i].Visible := I <= Query.RecordCount; end; ЗЫ. А вообще, можно и динамически кнопки создавать при необходимости. |
#3
|
|||
|
|||
Спасибо, с массивами как-то не допер, хорошая идея, смысл понятен.
Цитата:
Вот с этим уже вторая запара. ADO в Delphi XE вроде нет по умолчанию... Базы есть в 2 форматах: JSON и SQL. Ни одну пока подключить не удалось (особо еще не занимался этим). Нашел какую-то библитотеку компонентов JSON, но DPK там нет, только PAS и примеры. По SQL адекватных компонентов вообще не могу найти, или не там ищу Есть какие-то адекватные компоненты под импорт SQL? Или подскажете плз, как установить JSONовскую либу. |
#4
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |