Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

uses Testfrm;

{$R *.DFM}

procedure tfrmmain.runtest; var f:file of ttest; begin frmmain.hide; assignfile(f,testfilename); try reset(f); except showmessage('Файл теста не найден!'); exit end; testnum:=1; while not eof(f) do begin try read(f,test[testnum]); inc(testnum); except showmessage('Ошибка в файле теста'); frmmain.show; exit end end; closefile(f); frmTest.show; end;

procedure TfrmMain.SpeedButton1Click(Sender: TObject); begin testfilename:='Time.tst'; runtest end;

procedure TfrmMain.SpeedButton2Click(Sender: TObject); begin testfilename:='Agress.tst'; runtest end;

procedure TfrmMain.SpeedButton3Click(Sender: TObject); begin testfilename:='health.tst'; runtest end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); begin if messagedlg('Вы действительно хотите выйти?',mtwarning,[mbyes,mbno],0)=mrno then action:=canone end;

end.

unit Testfrm;

interface

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

type
TfrmTest = class(TForm)

Image1: TImage; rb1: TRadioButton; rb2: TRadioButton; rb3: TRadioButton;

Label1: TLabel;

SpeedButton1: TSpeedButton; procedure load; procedure rb1Click(Sender: TObject); procedure rb2Click(Sender: TObject); procedure rb3Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations } public defque:byte; end;

var frmTest: TfrmTest;

implementation

{$R *.DFM}

uses mainfrm, Resfrm;

procedure tfrmtest.load;

begin label1.caption:=test[defque].text; rb1.Caption:=test[defque].quest[1]; rb2.Caption:=test[defque].quest[2]; rb3.Caption:=test[defque].quest[3]; speedbutton1.enabled:=false; rb1.Enabled:=true; rb2.Enabled:=true; rb3.Enabled:=true; rb1.Checked:=false; rb2.Checked:=false; rb3.Checked:=false; if rb3.caption='' then rb3.hide else rb3.Show end;

procedure TfrmTest.FormActivate(Sender: TObject); begin testcount:=0; defque:=1; load end;

procedure TfrmTest.rb1Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[1]) end;

Рекомендуем скачать другие рефераты по теме: реферат слово, шпорі по философии.





Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата