Помощь с программой тестом на Delphi. Не знаю как сделать чтобы был выбор ответа и определение верного/не верного ответа и итог?

[KiberVioNet]

Помогите кодом, пожалуйста... Очень нужна ваша помошь

У меня есть уже оформленная программа теста (показана в скрине). Но в ней не прописан код действий...
Мне надо чтобы пользователь выбрал ответ и нажал на кнопку "Итог" и в поле 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;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

end.

Дайте пример как должен делаться выбор ответа вообще и выбор правильного и итог (количество правильных ответов)

[type_Oleg]

Вы что, все свои РадиоГруппы вручную наполняли РадиоБутонами ?
То то я гляжу у вас аж 24 штуки их прописано. Нельзя чтоли было использовать свойство Items у RadioGroup и заполнить как на рисунке?

Так что, зря вы пишете ..

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

..У меня есть уже оформленная программа теста (показана в скрине)...

считайте, нет у вас ничего. Легче заново сделать.

[KiberVioNet]

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

считайте, нет у вас ничего. Легче заново сделать.

А что так нельзя что ли (я же не на продажк этот тест несу) ?! Мы на парах было и в ручную добавляли эти батоны в группу и ни чего... Токо тогда у меня готовый код был, а щас нету...

Может всё таки поможете и скажете как сделать выбор ответа и итог...

[evg_m]

1. создаете обработчик события OnClick кнопки Итог.
2. СЧИТАЕТЕ количество правильных RadioButton (содержащих правильный ответ), которые являются выбранными(отмеченными).
3. выводите результат подсчета в Edit1.

[KiberVioNet]

evg_m

А можно код?

[Stilet]

Могу предложить такой простецкий вариант:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
			StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						Button1: TButton;
						procedure Button1Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
       procedure AddGroup(quest:String;answers:array of string;good:integer);
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Align:=alBottom;
  Button1.Caption:='Я усе.';
  AddGroup('Кто такой Чехов?',['Я','Ты','Мы','Писатель'],3);
  AddGroup('Почему гладиолус?',['Прост...','Забей.','Потому что арбуз','Где?'],1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin          n:=0;
 for i:=0 to ControlCount-1 do
  if Controls[i] is TRadioGroup then
   inc(n,byte(TRadioGroup(Controls[i]).Tag=TRadioGroup(Controls[i]).ItemIndex));
 ShowMessage(format('Правильных ответов: %d',[n]));
end;

procedure TForm1.AddGroup(quest: String; answers: array of string; good: integer
			);
var i:integer;
begin
  with TRadioGroup.Create(self) do begin
    Caption:=quest;
    for i:=Low(answers) to High(answers) do
     Items.Append(answers[i]);
    Tag:=good;
    Align:=alTop;
    Parent:=Self;
    Show;
	end;
end;

end.

[min@y™]

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











о, нашёл!

[evg_m]

evg_m

А можно код?

1. форма -> Инспектор объектов ->события -> ...
2.

rez:=0;
// проверяем только нужные
if RadiobuttonXXX.checked then Inc(rez); //считаем только отмеченные
......

3.

EditZ.text:=inttostr(rez);//выводим то, что насчитали