[Jaxeg]

Подскажите пожалуйста, как создать тест с использованием CheckListBox, чтобы можно было выбрать два правильных ответа ... я вроде сделал, но у меня баллы в конце не выставляет, если выбираю два ответа .. а если один, то нормально работает....

[M.A.D.M.A.N.]

Код:

for i := 0 to list.count - 1 do
  if list.checked[i] then
    s := s + list[i];

Ну ты понел.

[Jaxeg]

А как сделать, чтобы два варианта только были верными?

[TOJluK]

используйте AND-OR в конструкции IF

[Jaxeg]

я вот так делал, но баллы не начисляются(

Код:

If (CheckListBox1.Checked[1]=true) and (CheckListBox1.Checked[2]=true) then
ball:=ball+2
else
ball:=ball;

[SawA]

по такой логики получается что в CheckListBox1.Checked[1] и CheckListBox1.Checked[2] всегда находятся верные ответы, т.е. всегда тыкай первый и второй в true и будет счастье?

[Jaxeg]

а как тогда сделать, чтобы для каждого вопроса были свои варианты ответа?

[VINCENT]

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

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ball:=0 ;
  If (CheckListBox1.Checked[0] = true) and (CheckListBox1.Checked[1] = true) then
  begin
    ball:=ball+2;
    Edit1.Text:= inttostr(ball);
  end
  else
  begin
    ball:=ball;
    Edit1.Text:= inttostr(ball);
  end;
end;

может тупишь ?
смтотри окуда индекс начинается с 0

[Jaxeg]

спасибо за код ... да, действительно.. забыл что индекс с 0 начинается...

но теперь у меня другой вопрос, как сделать, чтобы на первом вопросе, например, 1 и 2 варианты были правильные, на втором вопросе 2 и 4, на третьем 1 и 3 варианты и так далее?

а то просто получается, что на каждом вопросе одинаковые варианты ответа...

[v1s2222]

Random тебе в помощь.

[Jaxeg]

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

[v1s2222]

Ты не понял. Если тебе надо 2 правильных ответа: получаешь их положение (например, 1 и 4) случайными числами. После - выводишь на 1 и 4 место нужные ответы, в остальные выводишь не правильные.