проблемы с тестом в делфи

[vlados1]

Здравствуйте у меня возникла проблема при создание теста на делфи.
Тест делал с помощью радио батонов но при запуске программы и прохождения теста результат не показывает вот сам код

var i:real;
begin
i:=0
 if rb4.checked=True then  i:=i+1;
 if rb5.checked=true then  i:=i+1;
 If rb10.checked=true then i:=i+1;
 if rb14.checked=true then i:=i+1;
 if rb17.checked=true then i:=i+1;
 if rb21.checked=true then i:=i+1;
 if rb26.checked=true then i:=i+1;
 if rb29.checked=true then i:=i+1;
 if rb34.checked=true then i:=i+1;
 if rb39.checked=true then i:=i+1;
 if i<5 then ShowMessage('плохо'+ floattostr(i));
 if i<8 then ShowMessage ('хорошо ' + floattostr(i));
 if i>9 then Showmessage ('отлично'+ floattostr(i));
  end
end;

результат все время показівает 0 , помогите решить эту проблему

[Leshii]

i:=0

Вот твоя проблема .

[Skalp]

Если i=8 или 9, то ты вообще никакого сообщения не увидишь)

[Mad_Cat]

if i<5 then ShowMessage('плохо'+ floattostr(i))
else
if i<=8 then ShowMessage ('хорошо ' + floattostr(i))
else
if i>8 then Showmessage ('отлично'+ floattostr(i));

[vlados1]

все равно ничего не происходит все рано 0

[vovk]

if i<5 then ShowMessage('плохо'+ floattostr(i));
if i<8 then ShowMessage ('хорошо ' + floattostr(i));

1)в таком виде второе условие если i от 1 до 7 всегда сработает.
2) зачем i rael? почему не integer, или не Byte?

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

[Skalp]

я так понял, у тебя как минимум 39 радиобаттонов, ты правильно их объеденил ?
если баттонов 39, то можно предположить, что у тебя 13 вопросов с тремя вариантами ответов каждый, и надо определенные группы радиобаттонов объединить.
Плюс еще не известно, что у тебя там еще.
Скинь лучше весь проект.

ПЫСЫ: после i:=0 нет точки с запятой, хотя, в этом случае у тебя бы программа не скомпилировалась.

[vlados1]

вот моя форма и то что в батоне

[vlados1]

вот мой проект можете помочь исправить ошибки

[vlados1]

всем спасибо кто помог, я понял где была ошибка