Приложения в. Листинг индивидуального задания №3

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, IniFiles;

type

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Timer1: TTimer;

Label1: TLabel;

Memo1: TMemo;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

Button2: TButton;

Label2: TLabel;

Label3: TLabel;

Timer2: TTimer;

procedure Label1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Quest:TIniFile;

IntnextQuest,OtvetTrue,OtvetFalse,flag:Integer;

OtvetStr,OtvetUserStr,mins,secs:string;

min,sec:Integer;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Caption = 'Разгорнути' then

begin

if Panel1.Height <> 110 then

begin

Panel1.Height:= Panel1.Height + 10;

end;

end;

if Label1.Caption = 'Згорнути' then

begin

if Panel1.Height <> 0 then

begin

Panel1.Height:= Panel1.Height - 10;

end;

end;

if Panel1.Height = 110 then

begin

Label1.Caption:='Згорнути';

Timer1.Enabled:=false;

end;

if Panel1.Height = 0 then

begin

Label1.Caption:='Разгорнути';

Timer1.Enabled:=false;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

case RadioButton6.Checked of

true: begin OtvetUserStr:='А'; end;

end;

case RadioButton7.Checked of

true: begin OtvetUserStr:='Б'; end;

end;

case RadioButton8.Checked of

true: begin OtvetUserStr:='В'; end;

end;

case RadioButton9.Checked of

true: begin OtvetUserStr:='Г'; end;

end;

case RadioButton10.Checked of

true: begin OtvetUserStr:='Д'; end;

end;

if OtvetStr = OtvetUserStr then

begin

Inc(OtvetTrue);

end

else

Inc(OtvetFalse);

Inc(IntnextQuest);

Memo1.Clear;

Quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(flag)+'.ini');

Memo1.Lines.Add(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Запитання закінчились!'));

OtvetStr:=(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Запитання закінчились!'));

if Memo1.Lines[0] = 'Запитання закінчились!' then

begin

ShowMessage('Тест закінчився'+#13+'Вірних відповідей: '+IntToStr(OtvetTrue)+#13+'Помилкових відповідей: '+IntToStr(OtvetFalse));

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

min:=0;

sec:=0;

Timer2.Enabled:=True;

OtvetTrue:=0;

OtvetFalse:=0;

IntnextQuest:=1;

if RadioButton1.Checked=True then

begin

flag:=1;

Memo1.Clear;

Quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest1.ini');

Memo1.Lines.Add(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Запитання закінчились!'));

OtvetStr:=(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Запитання закінчились!'));

end;

if RadioButton2.Checked=True then

begin

flag:=2;

Memo1.Clear;

Quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest2.ini');

Memo1.Lines.Add(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Запитання закінчились!'));

OtvetStr:=(Quest.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Запитання закінчились!'));

end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

sec:=sec+1;

if sec=60 then begin min:=min+1; sec:=0 end;

If sec<10 then secs:='0'+IntToStr(sec);

if sec>9 then secs:=IntToStr(sec);

if min<10 then mins:='0'+IntToStr(min);

if min>9 then mins:=IntToStr(min);

Label3.Caption:=mins+':'+secs;

end;

end.