RadioButton.caption и Random

[Kelthagor]

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

procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+1;


Label1.Caption:='Впервые термин "информатика" возник в';
RadioButton1.Caption:= 'в 60-х годах в Англии';
RadioButton2.Caption:= 'в 60-х годах во Франции';
RadioButton3.Caption:= 'в 80-х годах в Германии';

Button1.Visible:= false;
Button2.Top:= Button1.Top;
Button2.Left:= Button1.Left;
Button2.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Вопрос №' + IntToStr(num);
Button1.Enabled:=False;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Вадим Мошев]

Например, заведите массив строк на три элемента, в каждый из которых поместите строки для ваших "капшонов". После этого массив перемешайте случайным образом, а потом:

RadioButton1.Caption:= a[1];
RadioButton2.Caption:= a[2];
RadioButton3.Caption:= a[3];

[NetSpace]

убирать повторы лучше всего в цикле: пусть перебирает варианты, пока не найдёт тот, которго ещё не было.
массив ms[i] содердит только 3 значения:0 - этого вопроса ещё не было, 1 - этот вопрос загружен сейчас и 2 - этот вопрос уже был.

Randomize;
repeat
    sn:=random(5)+1;//скажем, от 1 до 5 вопросов надо вывести
    if(ms[sn]=1)then ms[sn]:=2;//уже был
    if(ms[sn]=0)then ms[sn]:=1;//ещё не был
until ms[sn]=1;
   //----- если этого вопроса раньше не было, то выводим  ----------------------
   if(ms[sn]=1)then
   begin
      ...//вот тут показываем формы, кнопки, флажки и метки...
   end;

[Kelthagor]

Все это слишком сложно для моего понимания. Куда ответы присваивать, где и какие переменные объявлять, какого типа... я ничего не понимаю

[NetSpace]

ms:array[1..5] of Byte;

и в самом начале программы присваиваете им всем значение 0

for i:=1 to 5 do ms[i]:=0;