SaveText.Ru

Без имени
  1. procedure TForm1.Button1KeyPress(Sender: TObject; var Key: char);
  2. begin
  3.  
  4. end;
  5.  
  6. procedure TForm1.Button1Click(Sender: TObject);
  7. begin
  8.   close
  9. end;
  10.  
  11. procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: char);
  12. begin
  13.   If key=#13 then Num1:=ListBox1.ItemIndex;
  14.     ListBox1.ItemIndex:=-1;ActiveControl:=ListBox2;
  15.     ListBox2.ItemIndex:=0;
  16. end;
  17.  
  18. procedure TForm1.ListBox2KeyPress(Sender: TObject; var Key: char);
  19. begin
  20.   If key=#13 then begin
  21.     case ListBox2.ItemIndex of 0:
  22.       Num2:=2;
  23.       1:Num2:=1;
  24.       2:Num2:=3;
  25.       3:Num2:=0;
  26.     end;
  27.   if Num1=Num2 then begin Label4.Caption:='Верно!';
  28.      CountR:=CountR+1 end
  29.   else form1.Label4.Caption:='Ошибка';
  30.   CountC:=CountC+1;
  31.   if CountC=CountN then ShowMessage('Тест окончен Баллы : '
  32.   +FloatToStr(CountR/CountN * 5)+
  33.   '(правильных ответов:'+IntToStr(CountR)+')');
  34.   ListBox2.Itemindex:=-1;ActiveControl:=Listbox1;
  35.   end;
  36. end;

Share with your friends:

Print