Файл: Дипломна робота.docx

frm.RadioButton1.Visible:=FALSE;

frm.Label2.Visible:=FALSE;

frm.Label2.caption:='';

frm.Label2.width:=frm.ClientWidth-frm.Label2.left-5;

frm.RadioButton2.Visible:=FALSE;

frm.Label3.Visible:=FALSE;

frm.Label3.caption:='';

frm.Label3.width:=frm.ClientWidth-frm.Label3.left-5;

frm.RadioButton3.Visible:=FALSE;

frm.Label4.Visible:=FALSE;

frm.Label4.caption:='';

frm.Label4.width:=frm.ClientWidth-frm.Label4.left-5;

frm.RadioButton4.Visible:=FALSE;

frm.Label5.width:=frm.ClientWidth-frm.Label5.left-5;

frm.Image1.Visible:=FALSE;

end;

procedure Itog(summa:integer;frm:TForm1);

var

i:integer;

buf,temp:string;

begin

buf:='';

temp := ParamStr(1);

delete(temp,pos('.',temp),4);

fz:=temp+'.dat';

assignfile(z,fz);

//$I-

rewrite(z);

//I+

write(z,summa);

close(z);

str(summa,buf);

buf:='Результати тестування'+chr(13)

+'Всього балів: '+buf;

i:=1;

while (summa <= level[i]) and (i<N_LEV) do

i:=i+1;

buf:=buf+chr(13)+mes[i];

frm.Label5.caption:=buf;

end;

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);

begin

ResetForm(Form1);

{ if ParamCount = 0

then begin

Label5.caption:= 'Не задано файл питань тесту.';

Button1.caption:='Ok';

Button1.tag:=2;

Button1.Enabled:=TRUE

end

else begin}

{fn := ParamStr(1);}

fn := ExtractFilePath ( Application.ExeName )+ 'test.txt';

assignfile(f,fn);

//$I-

reset(f);

//I+

if IOResult=0 then

begin

Info(f,Label5);

GetLevel(f);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

case Button1.tag of

0: begin

Button1.caption:='Далі';

Button1.tag:=1;

RadioButton5.Checked:=TRUE;

Button1.Enabled:=False;

ResetForm(Form1);

VoprosToScr(f,Form1,vopros)

end;

1: begin

summa:=summa + score[otv];

ShowMessage('Після відповіді на останнє запитання ви набрали за тест сумарно '+IntToStr(summa)+' б.');

RadioButton5.Checked:=TRUE;

Button1.Enabled:=False;

ResetForm(Form1);

if not eof(f)

then VoprosToScr(f,Form1,vopros)

else

begin

summa:=summa+score[otv];

closefile(f);

Button1.caption:='Ok';

Form1.caption:='Результат';

Button1.tag:=2;

Button1.Enabled:=TRUE;

Itog(summa,Form1);

end;

end;

2: begin

Form1.Close;

end;

end;

end;

procedure TForm1.RadioButtonClick(Sender: TObject);

begin

if sender = RadioButton1

then otv:=1

else if sender = RadioButton2

then otv:=2

else if sender = RadioButton3

then otv:=3

else otv:=4;

Button1.enabled:=TRUE;

end;

end.