Предыдущая страница реферата | 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 | Следующая страница реферата