Тест. Помогите решить проблему ... их 2

[maksim97maksim]

Делфи Delphi
1.Короче говоря я сделал тест с RadioGroup , но у меня можно пройти тест при ответе лишь на 1 вопрос из 10 (даже не нажимая на остальные(1 ответа достаточно, что бы вывелось число балов). Подскажите как сделать что бы можно было вывести быллы только после ПОЛНОГО прохождения теста ?.

Кнопка вывода оценки:

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls;

type
  TForm13 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    RadioGroup4: TRadioGroup;
    RadioGroup5: TRadioGroup;
    RadioGroup6: TRadioGroup;
    RadioGroup7: TRadioGroup;
    RadioGroup8: TRadioGroup;
    RadioGroup9: TRadioGroup;
    RadioGroup10: TRadioGroup;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses Unit1, Unit14, Unit12;

{$R *.dfm}

procedure TForm13.BitBtn2Click(Sender: TObject);
begin
form13.Visible:=false;
form1.enabled:=true;
form1.visible:=true;
form13.enabled:=false;
end;
procedure TForm13.BitBtn1Click(Sender: TObject);
var n:integer;
begin
n:=0;
if radiogroup1.ItemIndex = 0  then n:=n+1;
if radiogroup2.ItemIndex = 0  then n:=n+1;
if radiogroup3.ItemIndex = 2  then n:=n+1;
if radiogroup4.ItemIndex = 1  then n:=n+1;
if radiogroup5.ItemIndex = 1 then n:=n+1;
if radiogroup6.ItemIndex = 1  then n:=n+1;
if radiogroup7.ItemIndex = 1  then n:=n+1;
if radiogroup8.ItemIndex = 2  then n:=n+1;
if radiogroup9.ItemIndex = 2  then n:=n+1;
if radiogroup10.ItemIndex = 0  then n:=n+1;
form14.label1.caption := form12.edit1.text;
form14.label2.caption := form12.edit2.text;
form14.label3.caption := form12.edit3.text;
form14.label4.caption := 'Ваш результат  '+inttostr(n)+' баллов';
form14.show;
form13.Visible:=false;
form14.enabled:=true;
form14.visible:=true;
form13.enabled:=false;
end;
end.

2. Как сделать что бы при регистрации запоминались (можно в txt файле) результаты Регистрации (Ф.И.О.) И после результат прохождения теста в быллах. Что бы после прохождения пользователь смог прочитать повторно лекцию и ответил на тест заново. Сравнив результат.
Кнопка регистрации:

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB;

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

uses Unit1, Unit13;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);
begin
form12.Visible:=false;
form1.enabled:=true;
form1.visible:=true;
form12.enabled:=false;
end;

procedure TForm12.Button1Click(Sender: TObject);
begin
form12.Visible:=false;
form1.enabled:=true;
form1.visible:=true;
form12.enabled:=false;
end;

procedure TForm12.BitBtn2Click(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.text<>'') then begin
form12.Visible:=false;
form13.enabled:=true;
form13.visible:=true;
form12.enabled:=false;
end;
end;
end.

[Stilet]

Заведи себе глобальную переменную, увеличиваемую в конце прохождения каждого теста. Т.е. всем radiogroup задай один и тот же обработчик

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  if Cnt=10 then begin
    form14.label4.caption := 'Ваш результат  '+inttostr(n)+' баллов';
    form14.show;
    form13.Visible:=false;
    form14.enabled:=true;
    form14.visible:=true;
    form13.enabled:=false;
  end;
  inc(cnt);
end;

cnt - та самая переменка, считающая кол-во обработанных тестов.

[maksim97maksim]

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

Заведи себе глобальную переменную, увеличиваемую в конце прохождения каждого теста. Т.е. всем radiogroup задай один и тот же обработчик

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  if Cnt=10 then begin
    form14.label4.caption := 'Ваш результат  '+inttostr(n)+' баллов';
    form14.show;
    form13.Visible:=false;
    form14.enabled:=true;
    form14.visible:=true;
    form13.enabled:=false;
  end;
  inc(cnt);
end;

cnt - та самая переменка, считающая кол-во обработанных тестов.

Как то у меня не выходит, немогу вписать эту самую Cnt переменную, пожалуйсто напиши как правельно.

[doktor255]

немогу вписать эту самую Cnt переменную, пожалуйсто напиши как правельно.

А поиском пользоваться тоже не можешь? Или не хочешь?

[Stilet]

немогу вписать эту самую Cnt переменную

Ай-яй-яй... Майор военкомата смотрит на тебя с улыбкой.
Лови:

var cnt:integer;

[maksim97maksim]

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

Ай-яй-яй... Майор военкомата смотрит на тебя с улыбкой.
Лови:

var cnt:integer;

Блин так же и писал только с попракой vir ))) Перелапатил весь код блин )
СПАСИБО
Можешь ли подсказать по 2 проблеме ?