компонент radiogroup.items

@hardik · Регистрация: 14.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые знатоки delphi!
Вообщем нужна помочь вот в чем:

Delphi

Label1.Caption:=ini.ReadString('VOPR'+IntToStr(NextVop),'Vopros','Вопрос не задан');
Radiogroup1.Items.Add(Ini.ReadString('VOPR'+IntToStr(NextVop),'Prav','lol'));
Radiogroup1.Items.Add(Ini.ReadString('VOPR'+IntToStr(NextVop),'Variant1','lol'));
Radiogroup1.Items.Add(Ini.ReadString('VOPR'+IntToStr(NextVop),'Variant2','lol'));

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

Добавлено через 22 минуты
Люди помогите.

Одиночка · 05.12.2012, 19:45

Я бы все назвал:

Код

Variant1=...
Variant2=...
Variant3=...

А правильный всегда 1-й.
Тогда грузить так:

Delphi

Var
  ss : Set Of 1..3;
  Prav : Integer; //Это глобальная переменная
 
  ss:=[];
  Radiogroup1.Items.Clear;
  Randomize;
  Repeat
    i:=Random(3)+1;
    While Not (i In ss) Do i:=Random(3)+1;
    Radiogroup1.Items.Add(Ini.ReadString('VOPR'+IntToStr(NextVop),'Variant'+IntToStr(i),'lol'));
    Include(ss,i);
    If i=1 Then Prav:=Radiogroup1.Items.Count-1; //Запомним Items правильного ответа
  Until ss=[1..3];

@hardik · 05.12.2012, 20:00 **[ТС]**

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

Одиночка · 05.12.2012, 20:01

Не по теме:

Чтобы увидеть ответ - нужно обновлять страницу.

Добавлено через 52 секунды
В приведенном мной коде и идёт перемешивание. В том то и суть нумерации ответов.

@hardik · 05.12.2012, 20:08 **[ТС]**

я этого не понимаю, я понимаю что есть
1 вариант правильный radiogroup1.ItemIndex=0
2 вариант radiogroup1.ItemIndex=1
3 вариант radiogroup1.ItemIndex=2
Ну так вот как их перемешать random(3);
вроде понятно объяснил

Добавлено через 4 минуты
все, разобрался.

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	05.12.2012, 20:00 [ТС]	3
	Не спорю что так намного лучше. но я лучше по старинке. все время правильный вариант у меня будет 1, а вот теперь меня интересует как можно их перемешать, понятным для меня кодом. 0

Одиночка 3943 / 1868 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	05.12.2012, 20:01	4
	Не по теме: Чтобы увидеть ответ - нужно обновлять страницу. Добавлено через 52 секунды В приведенном мной коде и идёт перемешивание. В том то и суть нумерации ответов. 0

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	05.12.2012, 20:08 [ТС]	5
	я этого не понимаю, я понимаю что есть 1 вариант правильный radiogroup1.ItemIndex=0 2 вариант radiogroup1.ItemIndex=1 3 вариант radiogroup1.ItemIndex=2 Ну так вот как их перемешать random(3); вроде понятно объяснил Добавлено через 4 минуты все, разобрался. 0

Опции темы