Программа Теста на Лазарусе, Delphi. Как сделать вывод и выбор ответов?
скрин
У меня есть уже оформленная программа теста (показана в скрине). Но в ней не прописан код действий...
Мне нужно чтобы пользователь выбрал ответ и нажал на кнопку "Итог" и в поле TEdit появилось число верных ответов.
То есть в программе есть верные и не верные ответы и как это прописать и то чтобы в конце было выведено число я не знаю - помогите!
код этой формы
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
Memo6: TMemo;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
RadioButton19: TRadioButton;
RadioButton2: TRadioButton;
RadioButton20: TRadioButton;
RadioButton21: TRadioButton;
RadioButton22: TRadioButton;
RadioButton23: TRadioButton;
RadioButton24: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
RadioGroup4: TRadioGroup;
RadioGroup5: TRadioGroup;
RadioGroup6: TRadioGroup;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
Вот для 2х радиогруппов. Пример простейший, уверен можно более грамотно оформить, но это не ко мне :)
procedure TForm1.Button1Click(Sender: TObject);
var
sum_correct: integer;
begin
sum_correct:=0; // начальное значение правильных ответов
If RadioGroup1.ItemIndex=1 Then // нумерация ItemIndex с 0
begin
sum_correct:=sum_correct+1;
end;
If RadioGroup2.ItemIndex=3 Then
begin
sum_correct:=sum_correct+1;
end;
Edit1.Text:=IntToStr(sum_correct);
end;
end.
Пиши в агент или в почту