Контрольная работа: Розробка програмного продукту "Тестер"

end ;

procedure TForm1.FormCreate(Sender: TObject);

begin

Status:=tsNotActiv;

end ;

procedure TForm1.ButtonNextClick(Sender: TObject);

begin

if RadioGroup1.ItemIndex=-1 then exit;

if mas[potochne].PravVid-1=RadioGroup1.ItemIndex then

KilkistPraviln:=KilkistPraviln+1;

Potochne:=Potochne+1;

if Potochne<ArrayM.Max then

begin

WritePutanya;

WriteParametru;

end els e

GetResult;

end ;

procedure TForm1.WriteParametru;

begin

Label8.Caption:=inttostr(Potochne+1);

Label9.Caption:=inttostr(KilkistPraviln);

end ;

procedure TForm1.Timer1Timer(Sender: TObject);

var minute,second:integer;

p:integer; s:string ;

begin

p:=time div 1000;

minute:=p div 60;