Создание программы-аналога игры Кто хочет стать миллионером

[s4shk4]

Есть задание - написать программку типа игры "Кто хочет стать миллионером?". Вопросы хранятся в акцессовской базе данных.
Собственно, реквестирую советы как кое-что сделать.

1. Повесить на кнопки значения вариантов из записи в таблице в случайном порядке;
2. Пока ничего, мне бы с этим сначала справиться :3 Дальше сам попытаюсь разобраться. Ну если что еще непонятное будет, буду спрашивать. Надеюсь, вы не против будете :3

Скрин для наглядности:



Заранее благодарю.
И да, я только учусь :3

[Serge_Bliznykov]

скажите, а что Вам непонятно, как получить случайную запись из таблицы.
Или, как из случайной записи ответы перемешать (и поместить на кнопки)?

если первое - то я бы рекомендовал вытащить все вопросы нужного уровня сложности в массив и взять оттуда (например, если массив нумеруется от нуля? то можно так

Заполнить МассивСВопросами - через SELECT * from База ....
вопросN := МассивСВопросами[ Random(КоличествоВопросов) ];

а правильные ответы - берите массив из чисел 1, 2, 3, 4
и перемешивайте в цикле:

  
  for i:=0 to 3 do M[i] := i+1;
  for k:=1 to 20 do
    for i:=0 to 3 do begin
        repeat
           k := random(4);
        until k<>i;
        Temp := M[k];
        M[k] := M[i];
        M[i] := Temp; 
    end;

Кроме того, я бы ещё ввёл такое понятие, как сложность вопроса (или уроверь, или на каком по порядку вопросе этот вопрос можно задать... Иначе первым же может идти вопрос как об андроннном коллайдере, а последним, на миллион - без чего не выловишь рыбку из пруда...

[s4shk4]

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

Кроме того, я бы ещё ввёл такое понятие, как сложность вопроса

Это потом. Сейчас меня больше волнует идиотский вопрос, как нормально затащить в код названия столбцов (не знаю, блин, как нормально сформулировать мысль) выбранной запросом записи.

Да, знаю что зеленый еще, но ведь надо-же с чего-то начинать :3

[_SERGEYX_]

Что значит "затащить в код названия столбцов"?
Названия столбцов перед глазами (на скрине).
Сформулируй яснее вопрос.

А кнопкам (после перемешивания) можно произвольно присвоить Tag.
И все кнопки прикрутить к одному коду

case (Sender as TButton). Tag of
1: {действие};
2: {действие};
3: {действие};
4: {действие};
end;

[s4shk4]

Допустим, есть массив с вариантами из таблицы

M := [Вариант1_выбранного_вопроса, Вариант2_выбранного_вопроса, Вариант3_выбранного_вопроса, Вариант4_выбранного_вопроса];

Просто я не понимаю как обозначить, скажем, Вариант1_выбранного_вопроса из таблицы.

Ну как-нить там Field(Questions.TrueAsk)
Надеюсь, Вы что-то разобрали из моей несвязной бредятины :3

[Serge_Bliznykov]

s4shk4
давайте поступим так. Вы выложите свои наработки (в виде проекта, который Вы мучите, плюс тестовая таблица), запакуйте в архив и приложите к сообщению на форум (Расширенный режим ответа - Управление вложениями). Если прав нет - выложите на любой файлообменник и сюда ссылочку.

я помогу конкретным примером кода.
Просто не хочется всё писать с нуля. Да и Вам проще и понятнее будет с Вашим же примером разобраться.

[s4shk4]

http://rghost.ru/3068246

Вот..
Из-за лени ничего больше не сделал

Додумался до такого:

 v1:=(QueryQuestion.FieldByName('TrueAsk').asString);
 v2:=(QueryQuestion.FieldByName('FalseAsk1').asString);
 v3:=(QueryQuestion.FieldByName('FalseAsk2').asString);
 v4:=(QueryQuestion.FieldByName('FalseAsk3').asString);
 M:=[v1,v2,v3,v4];
 *перемешивание и все такое*

Собсно, что здесь не так?)

[Serge_Bliznykov]

ох, простите, обещал же пример нарисовать. да всё никак руки не доходили..
вот, посмотрите, поизучайте...

[s4shk4]

Ща изучим-с
Премного благодарен :3

[Serge_Bliznykov]

Будут вопросы - welcome!