Програма неправильно подсчитывает количество балов

[helena91]

ето програма-тест
сначало происходит регистрацыя пользователя, потом тестирование, а дальше открывается окно вывода результата и почему то неправильно подсчитывает количество балов... хотя теоретически все вроде правильно

вот правильные ответы:
1. CheckBox1
2. CheckBox1
3. CheckBox3
4. CheckBox2
5. CheckBox2
6. CheckBox1
7. CheckBox1
8. CheckBox1
9. CheckBox1
10. CheckBox3
11. CheckBox3
12. CheckBox1
13. CheckBox2
14. CheckBox1
15. CheckBox2
16. CheckBox1
17. CheckBox3
18. CheckBox2
19. CheckBox3
20. CheckBox1

[asmodey1]

Ну, судя по "регистрацЫя" и "балов", вы - из Индии к нам забрели... Ну, да ладно...
Вы "бряки" ставить умеете ? Или вы именно нам предоставляете право гулять бог знает сколько по вашей программе и вылавливать для вас "блох" ?
Все же попробуйте самостоятельно. Это не больно - всего-навсего нажмите одновременно CTRL+W... И внесите имена тех переменных, значения которых хотите проконтролировать. А вообще-то, в хэлпе про это столько интересного написано - зачитаетесь. Вам, как индусу, "аглицкий должон" быть знаком...

[Lafeza]

Сообщение от helena91

почему то неправильно подсчитывает количество балов... хотя теоретически все вроде правильно

теоретически?смешно...особенно использование 20-ти кнопок button, когда можно сделать все одной. Да и если была проблемма только с этим...теоретически глупо написано, а практически более плачевно получается да и зачем результат прописывать на другой форме?
ладно, мнение оставлю при себе...
…вам нужно изменить RadioButton, итак проверяем:
procedure TForm2.Button1Click
RadioButton1.Checked
procedure TForm2.Button2Click//нужно заменить RadioButton3 на:
RadioButton1.Checked
procedure TForm2.Button3Click//нужно заменить RadioButton2:
RadioButton3.Checked
procedure TForm2.Button4Click
RadioButton2.Checked
procedure TForm2.Button5Click// нужно заменить RadioButton1:
RadioButton2.Checked
procedure TForm2.Button6Click
RadioButton1.Checked
procedure TForm2.Button7Click
RadioButton1.Checked
procedure TForm2.Button8Click
RadioButton1.Checked
procedure TForm2.Button9Click//нужно заменить RadioButton3:
RadioButton1.Checked
procedure TForm2.Button10Click
RadioButton3.Checked
procedure TForm2.Button11Click//нужно заменить RadioButton1:
RadioButton3.Checked
procedure TForm2.Button12Click//нужно заменить RadioButton2:
RadioButton1.Checked
procedure TForm2.Button13Click//нужно заменить RadioButton1:
RadioButton2.Checked
procedure TForm2.Button14Click//нужно заменить RadioButton2:
RadioButton1.Checked
procedure TForm2.Button15Click//нужно заменить RadioButton1:
RadioButton2.Checked
procedure TForm2.Button16Click//нужно заменить RadioButton3:
RadioButton1.Checked
procedure TForm2.Button17Click//нужно заменить RadioButton2:
RadioButton3.Checked
procedure TForm2.Button18Click//нужно заменить RadioButton3:
RadioButton2.Checked
procedure TForm2.Button19Click// нужно заменить RadioButton1:
RadioButton3.Checked
procedure TForm2.Button20Click
RadioButton1.Checked
//Также :
if (ball <= 22) and (ball>= 0)