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

88K

29 сентября 2015 года

2 / / 29.09.2015

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

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