Задача......

[sviat9440]

Всем добрый вечер. Я разрабатываю программу тестирования, для экзамена. В каждом вопросе по 6 вариантов ответов. Мне нужно, чтобы 6 кнопок, на которых расположены варианты ответов, располагались в случайном порядке. 

 

1*2*3*4*5*6=720 комбинаций постановок. Конечно, можно для каждой прописать свою команду. Есть ли более правильный и легкий способ это сделать?

 

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

[estra]

var
  Buttons: array[0..5] of TButton;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
   for i := 0 to 5 do
      Buttons[i] := FindComponent( Format( 'Button%d', [i+1] ) ) as TButton;
   Randomize;
   for i := 1 to 1000 do
   begin
      j := Random( 5 );
      Buttons[j].Position.Y := Buttons[j].Position.Y + Buttons[j+1].Position.Y;
      Buttons[j+1].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y;
      Buttons[j].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y;
   end;
end;

RandomButton.zip

Изменено 1 июня, 2015 пользователем estra

[sviat9440]

Спасибо за наводку. Работает (только не пойму как, потому что чайник ). Только вопрос: как оптимизировать этот код по перемешивание 6-ти кнопок в компоненте TGirdPanelLayout (3х2)?

 

Да, можно конечно выстроить все кнопки в одну линию, но на моб. устройствах это будет выглядеть не красиво. А вот расположить их в сетке 3 на 2, другое дело. 

[sviat9440]

Мне кажется в таком случае легче перемешать не сами кнопки, а действия, которые они будут выполнять...

[estra]

Я просто показал принцип, а доведение до ума - дело не хитрое. Можно перемешать 6 кнопок как я показал, затем первые 3 отобразить в первом столбце, а последние 3 во втором. При перемешивании действий нужно учесть, что надписи на кнопках должны этим действиям соответствовать, а следовательно придется либо перемешивать кнопки, либо каким то образом менять на них текст.

[sviat9440]

Вот кое что уже получилось - задача решена!

Random_Button_posicion.zip

[sviat9440]

estra, ОГРОМНОЕ ВАМ СПАСИБО!!!

Изменено 2 июня, 2015 пользователем sviat

[sviat9440]

В этом проекте я обошелся без перемешивания самих кнопок, а перемешиваются действия кнопок.