[Jaxeg]

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

[Konrad]

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

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

if правильный_ответ then количество_баллов:=количество_баллов+1;

[Jaxeg]

у меня тест с заданиями, где ввод правильного ответа вводится с клавиатуры, то есть Edit использую ... в этом случае if ... then не знаю как сделать, есть еще варианты?

[Konrad]

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

у меня тест с заданиями, где ввод правильного ответа вводится с клавиатуры, то есть Edit использую ... в этом случае if ... then не знаю как сделать, есть еще варианты?

Приведи пример:
= Задание
= Правильный ответ

[Jaxeg]

= Вид подпрограммы в информатике?
= Функция

так? или я не правильно понял...

[Konrad]

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

= Вид подпрограммы в информатике?
= Функция

так? или я не правильно понял...

Закидаешь эдит и кнопку "Ответить".
Пользователь пишет в эдит ответ и жмет на кнопку.
А в кнопке уже проверяешь ответ.

Можно конечно же поиграться с событием ончендж и таймером.
Но это уже лишний геморрой.

[Jaxeg]

ну я вот как раз и не знаю, как проверить в кнопке правильный ответ ... нужно чтобы баллы начисляло еще...

[AND_REY]

Обычный оператор if:

Код:

Var
 Bal: Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'Ответ' Then
 begin
  ShowMessage('Правильно');
  Inc(Bal, 10);
 end;
end;

[Jaxeg]

Спасибо, попробую.