Делфи. Тесты.

[maslo]

Народ такой вопрос, я сделал тест через файлы, (как делать тест через файлы нарыл на этом форуме) и мне нужно организовать подсчет набранных балов и вывести оценку, Еще мне нужно сделать что при входе в тест в edit можно было ввести ФИО и Группу, нажать кнопку далее, и данные введенные в edit сохранились в текстовом файле, вот таких 2 небольших вопроса, помогите плз решить эту проблемму

[Vladya]

А Вы не думали сначала скрыть все элементы и оставить только эдиты для ввода, а потом после записи в файл скрывать эдит и показывать остальные, те которые нужны для работы теста. А еще лучше будет если с самого начала, у вас запустится вторая форма на которой будут эдиты, а после нажатия на кнопку, или еще что, запускалась основная программа. ФИО и группу можно сохранять в ini файл, или же просто txt

[maslo]

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

А Вы не думали сначала скрыть все элементы и оставить только эдиты для ввода, а потом после записи в файл скрывать эдит и показывать остальные, те которые нужны для работы теста. А еще лучше будет если с самого начала, у вас запустится вторая форма на которой будут эдиты, а после нажатия на кнопку, или еще что, запускалась основная программа. ФИО и группу можно сохранять в ini файл, или же просто txt

Мне подсчет балов в тесте важнее... я уже решил проблему с вводом данных для людей проходившим тест...вот с подсчетом балов незнаю как сделать... помогите плз, вот мой исходник теста через файлы

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
   It :longint; // позиция в списке FAl
   FAl :TStrings; // весь файл
   Cut :TStrings; // вопрос
   Ans_ :Integer; // номер правильного ответа
   Procedure GetQu(LstIn :TStrings; LstOut :TStrings; var Nitm :LongInt); // блок вопрос-ответ
   Procedure ParsQu(Lstin :TStrings; RG :TRadioGroup; Qu :TLabel; var Ans :Integer);
    { Public declarations }
  end;
 Const Fnam = '_Тест_.txt'; // имя файла с вопросами
var
  Form11: TForm11;

implementation

{$R *.dfm}
 Procedure TForm11.GetQu(LstIn :TStrings; LstOut :TStrings; var NItm :LongInt);
var I :LongInt;
    S :String;
    St :Boolean; // начало - T
begin // блок вопрос-ответ
  LstOut.Clear;
  LstOut.BeginUpdate;
 For I:=NItm To LstIn.Count-1 Do
 begin
   S := LstIn.Strings[I];
  If Length(Trim(S))>0 then
  If Pos(':', Trim(S))=Length(Trim(S)) then
   St := True;
  If St then
   LstOut.Add(S);
  If Length(S)=0 then
  begin
   NItm := I+1;
   LstOut.Delete(LstOut.Count-1);
   break;
  end;
 end;
  LstOut.EndUpdate;
end;
 Procedure TForm11.ParsQu(Lstin :TStrings; RG :TRadioGroup; Qu :TLabel; var Ans :Integer);
var I,II,A :Longint;
    S :String;
begin
 If LstIn=Nil then Exit;
 RG.Items.Clear;
 Qu.Caption := '';
 Ans := -2;
 A := 0;
  II := LstIn.Count;
 For I:=0 to II-1 Do
 begin
   S := LstIn.Strings[I];
  If Pos(':', Trim(S))=Length(Trim(S)) then
   Qu.Caption := S; // вопрос
   // Ответы
  If Trim(S)[1] in ['~', '='] then
  begin
   If Trim(S)[1] = '=' then
   begin
    Ans := A;
    RG.Items.Add(Copy(S, 2, Length(S)-1));
   end
    else
   RG.Items.Add(Copy(S, 2, Length(S)-1));
    Inc(A);
  end;
 end;
end;
procedure TForm11.Button2Click(Sender: TObject);
begin

 FAl.Clear;
 FAl.LoadFromFile(FNam);
 It := 0;
 Cut.Clear;
 Button1.Enabled := True;
 Button2.Enabled := False;
end;



procedure TForm11.FormCreate(Sender: TObject);
begin
begin
 It := 0;
 FAl := TStringList.Create; // весь файл
 Cut := TStringList.Create;
end;



end;
procedure TForm11.Button3Click(Sender: TObject);
begin
If It>0 then
  If radiogroup1.ItemIndex = Ans_ then
   Showmessage('Правильно')
  else
   Showmessage('Не правильно');

 GetQu(FAl, Cut, It); // вырезаем вопрос-ответы
 ParsQu(Cut, radiogroup1, Label1, Ans_); // парсим вопрос-ответ

end;

end.

[Vladya]

Попробуйте вот так:

Var p, n: integer; //правильные неправильные ответы

If radiogroup1.ItemIndex = Ans_ then
 Begin
  Showmessage('Правильно');
  p:=p+1;
  Label1.Capture:=IntToStr(p)+ ' - правильных ответов';
 End
else
 Begin
  Showmessage('Не правильно');
  n:=n+1;
  Label2.Capture:='Всего '+IntToStr(n)+' неправильных ответов'
  End;

или так нельзя?