[arantir92]

Доброго времени суток, форумчане! Не знаю как объяснить в двух словах, поэтому распишу как есть:
1. Имеется таблица из БД в которой к каждому вопросу есть определенное количество вариантов ответа: от 1 до 6.
2. Имеется форма с кнопками: 6 штук (взято по максимуму).

Собственно вопрос:
Как отображать столько кнопок, сколько вариантов ответов хранится в БД к определенному вопросу, остальные скрываются.

[lmikle]

Ну, например, есть кнопочки 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;

Query - твой запрос, через который ты получаешь список ответов.

ЗЫ. А вообще, можно и динамически кнопки создавать при необходимости.

[arantir92]

Спасибо, с массивами как-то не допер, хорошая идея, смысл понятен.

Сообщение от lmikle

Пусть ты получаешь вопросы из БД (догадываюсь, что Access и доступ через ADO).

Вот с этим уже вторая запара.
ADO в Delphi XE вроде нет по умолчанию...
Базы есть в 2 форматах: JSON и SQL. Ни одну пока подключить не удалось (особо еще не занимался этим).
Нашел какую-то библитотеку компонентов JSON, но DPK там нет, только PAS и примеры.
По SQL адекватных компонентов вообще не могу найти, или не там ищу
Есть какие-то адекватные компоненты под импорт SQL? Или подскажете плз, как установить JSONовскую либу.

[Страдалецъ]

ADO в Delphi XE вроде нет по умолчанию...

Есть вообще-то, смотрите вкладку DbGo.