[s4shk4]

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

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

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


Кому это надо - вот все что написал:
http://rghost.ru/3068246

Заранее спасибо

[s4shk4]

Так, теперь интересует как бы годно реализовать подсказку 50/50

Все что добавил за утро - http://rghost.ru/3119169

Заранее спасибо.

[friz]

50\50 можно сделать рандомом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m,k:byte;
begin
randomize;
m:=random(4)+1;
k:=m;
while k=m do
k:=random(4)+1;

memo1.Text:=inttostr(m) + ' '+inttostr(k);
end;

[PaHaNjkee]

неее... так не пойдет, буду доделывать ваш проект(если вы не против) и выложу сюда

[s4shk4]

Блин, поздно вы спохватились)

А так - не против.
Вот все что пока есть:
http://rghost.ru/3185707

Сейчас интересует как реализовать счетчик id'шников вопросов, который позволит избежать их повторения.

[s4shk4]

Разобрался. Вот.

if ololo='' then QueryQuestion.SQL.Text := 'SELECT * FROM Questions WHERE id='+IntToStr(rn)+';'
else
QueryQuestion.SQL.Text := 'SELECT * FROM Questions WHERE ID NOT IN ('+ololo+') ORDER BY RND(id);';

QueryQuestion.Active := true;

if ololo<>'' then ololo := ololo + ',';
ololo := ololo + QueryQuestion.FieldByName('ID').AsString;

[s4shk4]

Почти все готово: http://rghost.ru/3237881

Только прога иногда вешается