Разработка программы психотестирования
Категория реферата: Рефераты по информатике, программированию
Теги реферата: решебник по русскому языку, шпаргалки по праву бесплатно
Добавил(а) на сайт: Назар.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
procedure TfrmTest.rb2Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[2]) end;
procedure TfrmTest.rb3Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[3]) end;
procedure TfrmTest.SpeedButton1Click(Sender: TObject); var f:file of TResult; r:tresult; begin inc(defque); if defque=testnum then begin assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f); while not eof(f) do begin read(f,r); if testcount in [r.min..r.max] then begin frmres.label1.Caption:=r.text; break end end; closefile(f); frmtest.hide; frmres.show; end; load end;
procedure TfrmTest.FormClose(Sender: TObject; var Action: TCloseAction); begin frmmain.show; action:=cahide end;
end.
unit Resfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrmRes = class(TForm)
Label1: TLabel;
Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{ Private declarations } public
{ Public declarations } end;
var frmRes: TfrmRes;
implementation
uses Mainfrm;
{$R *.DFM}
procedure TfrmRes.Button1Click(Sender: TObject); begin frmres.hide; frmmain.show end;
procedure TfrmRes.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cahide; frmmain.show end;
end.
unit TestTypes;
interface
type
TTest=record text:string[255]; quest:array[1..3] of string[100]; count:array[1..3] of byte; end;
var testfilename: string; test:array[1..100] of ttest; testnum:byte;
implementation
Рекомендуем скачать другие рефераты по теме: реферат слово, шпорі по философии.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата