Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

procedure TForm1.TRZ4Click(Sender: TObject); begin if Analyze(TRZ4)=True then SWState(TRZ4,15) else SWState(TRZ4,15); end;

procedure TForm1.SRZ1Click(Sender: TObject); begin if Analyze(SRZ1)=True then SWState(SRZ1,14) else SWState(SRZ1,14); end;

procedure TForm1.SRZ2Click(Sender: TObject); begin if Analyze(SRZ2)=True then SWState(SRZ2,11) else SWState(SRZ2,11); end;

procedure TForm1.SRZ3Click(Sender: TObject); begin if Analyze(SRZ3)=True then SWState(SRZ3,24) else SWState(SRZ3,24); end;

procedure TForm1.SRZ4Click(Sender: TObject); begin if Analyze(SRZ4)=True then SWState(SRZ4,20) else SWState(SRZ4,20); end;

procedure TForm1.SRZ9Click(Sender: TObject); begin if Analyze(SRZ9)=True then SWState(SRZ9,12) else SWState(SRZ9,12); end;

procedure TForm1.SR10Click(Sender: TObject); begin if Analyze(SR10)=True then SWState(SR10,13) else SWState(SR10,13); end;

procedure TForm1.SR20Click(Sender: TObject); begin if Analyze(SR20)=True then SWState(SR20,23) else SWState(SR20,23); end;

procedure TForm1.SR37Click(Sender: TObject); begin if Analyze(SR37)=True then SWState(SR37,21) else SWState(SR37,21); end;

procedure TForm1.ODT1Click(Sender: TObject); begin if Analyze(ODT1)=True then SWState(ODT1,1) else SWState(ODT1,1); end;

procedure TForm1.ODT2Click(Sender: TObject); begin if Analyze(ODT2)=True then SWState(ODT2,0) else SWState(ODT2,0); end;

procedure TForm1.ODT3Click(Sender: TObject); begin if Analyze(ODT3)=True then SWState(ODT3,3) else SWState(ODT3,3); end;

procedure TForm1.ABR1Click(Sender: TObject); begin if Analyze(ABR1)=True then ABRState(ABR1,9) else ABRState(ABR1,9);

end;

procedure TForm1.ABR2Click(Sender: TObject); begin if Analyze(ABR2)=True then ABRState(ABR2,22) else ABRState(ABR2,22); end;

procedure TForm1.ResultBtnClick(Sender: TObject); var i:integer; s:string; begin
Error:=0;
Count:=0; if WorkMode=1 then begin for i:=0 to 24 do if E[i]=F[i] then Error:=Error+1; if Error=0 then s:='Хорошо'; if Error=1 then s:='Удовлетворительно'; if Error>2 then s:='Неудовлетворительно';
Results.Result.Label1.Caption:='Оценка: '+s;
Prot.Append('Оценка: '+s);
Results.Result.ShowModal;
TaskList.Visible:=True; end; if (WorkMode=0)and(Zap.FNo=0)and(Zap.FImage='0000')and(Zap.FState=0) then begin

Prot.Append('Количество ошибок: '+IntToStr(Error));

Prot.Append('Количество обращений к подсказке: '+IntToStr(Help));

Results.Result.Label1.Caption:='Количество ошибок:
'+IntToStr(Error);

Results.Result.Label2.Caption:='Количество обращений к подсказке:
'+IntToStr(Help);

Results.Result.ShowModal;

Actlist.Clear;

TaskList.Visible:=True; end; end;

procedure TForm1.HelpBtnClick(Sender: TObject); begin if StatusBar1.Panels[1].Text='№' then

Label1.Caption:=' Выберите задачу' else begin

Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки