Лабораторна робота №7

: Byte;

procedure TForm1.FormCreate(Sender: TObject); begin

CountN:=10; // кількість записів

CountC:=0;

end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);

begin

If (Key=#13) and (ListBox1.Items.Strings[ListBox1.ItemIndex]<>'') then begin

Num1:=ListBox1.ItemIndex;

ListBox2.Enabled := True;

ListBox1.Enabled := False;

ActiveControl:=Listbox2;

end; end;

procedure TForm1.ListBox2KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

Begin

case ListBox2.ItemIndex of

0:Num2:= 2;

1:Num2:= 1;

2:Num2:= 3;

3:Num2:= 0;

4:Num2:= 5;

5:Num2:= 4;

6:Num2:= 6;

11

7:Num2:= 9;

8:Num2:= 7;

9:Num2:= 8; end;

if Num1=Num2 then begin Label4.Caption:='Правилььно!'; CountR:=CountR+1;

End

else form1.Label4.Caption:='Помилка!'; CountC:=CountC+1; ListBox1.Items.Delete(Num1); ListBox1.Items.Insert(Num1, '');

if CountC=CountN then ShowMessage('Тест закінчено. Бали: ' +

FloatToStr(CountR/CountN * 5 )+ '(правильних відповідей: ' +IntToStr(CountR)+')');

Listbox2.Itemindex:=-1; ListBox1.Enabled := true; ActiveControl:=Listbox1; end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject); begin

CountC:=0;

CountR:=0;

Num1:=0;

Num2:=0;

ListBox2.ItemIndex:=-1;

ListBox1.Items.LoadFromFile('Fiz_1.txt'); // Повторне завантаження файлу

ListBox1.SetFocus;

end;

end.

12