[НовичЁккк]

Делаю тест на историю.Есть вопросы.
На форму добавил RadioButton и еще 3 таких же как сделать чтоб нажав на правильную засщитывался бал и как чтоб эти балы высвечивались в конце?
за рание спасибо надеюсь вы мне поможите (делаю для себя я не учусь в универе эт не задание)

[T-dayne]

Например, на форме 5 RadioButton'ов. Правильный из них - 2й. И есть кнопка "Далее" или ей подобная. На нажатие кнопки можешь поставить:

Код:

if radiobutton2.checked then inc(i);

Таким образом, при выбраном правильном радиобаттоне, счетчик увеличится на 1. В конце можешь вывести эту переменную если надо.

[Bars1992]

Самый простой вариант:
Создаешь текстовый файл типа:

PHP код:

Когда началась великая Отечественная война?
1941
1945
1946
1 


Где первое это вопрос, 2,3,4 вопросы а 5 это ответ. Так последовательно считываешь строки и вносиш данные куда надо. Чтоб подсчитать количество правельных ответов надо обявить глобальную переменную. И прибавлять к ней бал за правельный ответ. В конце загружаешь переменную и выдаешь результат.

Этот вориант очень прост так как пользователь может легко открыть и посмотреть ответы. можно также использовать шифрование.

[lmikle]

копай в сторону RadioGroup. Это если у тебя только один правильный ответ. Там есть свойство ItemIndex - какая из кнопок выбрана.

[НовичЁккк]

procedure TForm1.Button1Click(Sender: TObject);
var
x: real ;
begin
if radiobutton2.checked then label1.Caption : x + 1 ;
end ;
end.

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

[T-dayne]

Код:

if radiobutton2.checked then label1.Caption := inttostr(x+1);

[НовичЁккк]

пишет такие ошибки :[Error] Unit1.pas(33): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'