ject); RadioButton16.Checked then:=d +1 ;; TForm3.RadioButton21Click (Sender: TObject); RadioButton21.Checked then:=d + 1 ;; TForm3.RadioButton26Click (Sender: TObject); RadioButton1.Checked then:=d + 1 ;; TForm3.RadioButton29Click (Sender: TObject); RadioButton1.Checked then:=d + 1 ;; TForm3.RadioButton31Click (Sender: TObject); RadioButton31.Checked then:=d + 1 ;; TForm3.RadioButton49Click (Sender: TObject); RadioButton49.Checked then:=d +1 ;; TForm3.RadioButton36Click (Sender: TObject); RadioButton36.Checked then:=d + 1 ;; TForm3.RadioButton39Click (Sender: TObject); RadioButton39.Checked then:=d + 1 ;; TForm3.RadioButton43Click (Sender: TObject); RadioButton43.Checked then:=d + 1 ;; TForm3.RadioButton54Click (Sender: TObject); RadioButton54.Checked then:=d + 1 ;; TForm3.RadioButton61Click (Sender: TObject); RadioButton61.Checked then:=d +1 ;; TForm3.RadioButton62Click (Sender: TObject); RadioButton62.Checked then:=d + 1 ;; TForm3.RadioButton66Click (Sender: TObject); RadioButton66.Checked then:=d + 1 ;; TForm3.RadioButton69Click (Sender: TObject); RadioButton69.Checked then:=d + 1 ;; TForm3.RadioButton46Click (Sender: TObject); RadioButton46.Checked then:=d + 1 ;; TForm3.RadioButton74Click (Sender: TObject); RadioButton74.Checked then:=d +1 ;; TForm3.RadioButton78Click (Sender: TObject); RadioButton78.Checked then:=d + 1 ;; TForm3.RadioButton81Click (Sender: TObject); RadioButton81.Checked then:=d + 1 ;; TForm3.RadioButton86Click (Sender: TObject); RadioButton86.Checked then:=d + 1 ;; TForm3.RadioButton89Click (Sender: TObject); RadioButton89.Checked then:=d + 1 ;; TForm3.RadioButton91Click (Sender: TObject); RadioButton91.Checked then:=d +1 ;; TForm3.RadioButton97Click (Sender: TObject); RadioButton97.Checked then:=d + 1 ;; TForm3.RadioButton103Click (Sender: TObject); RadioButton103.Checked then:=d + 1 ;; TForm3.RadioButton105Click (Sender: TObject); RadioButton105.Checked then:=d + 1 ;; TForm3.RadioButton109Click (Sender: TObject); RadioButton109.Checked then:=d + 1 ;; TForm3.RadioButton111Click (Sender: TObject); RadioButton111.Checked then:=d +1 ;; TForm3.RadioButton116Click (Sender: TObject); RadioButton116.Checked then:=d + 1 ;; TForm3.RadioButton119Click (Sender: TObject); RadioButton119.Checked then:=d + 1 ;; TForm3.FormCreate (Sender: TObject) ;. Style:=tsFlatButtons;:=0 ;; TForm3.FormHide (Sender: TObject);f:textfile;:string;:=DateTimeToStr(Now);(f,laquo;RezRezult.txtraquo;);(f);(f);(f,d+laquo; Прізвище: + test1.Edit1.Text + Ім'я: + test1.Edit2.Text + батькові: +. Edit3.Text + № групи: + test1.Edit4.Text + Якість: + inttostr (oc) + % ); (f) ;; TForm3.BitBtn15Click (Sender: TObject);
no:=32-d;
str:= Результат: + inttostr (d) + правильних відповіді (ів) +
# 13 + inttostr (no) + неправильних відповіді (ів). raquo ;; MessageDlg (pchar (str), mtInformation, [mbok], 0)=mrok Then; test1.Show ;; TForm3.BitBtn1Click (Sender: TObject) ;. ActivePageIndex:=1; TForm3.BitBtn2Click (Sender: TObject) ;. ActivePageIndex:=0; TForm3.BitBtn3Click (Sender: TObject) ;. ActivePageIndex:=2; TForm3.BitBtn4Click (Sender: TObject) ;. ActivePageIndex:=1; TForm3.BitBtn5Click (Sender: TObject) ;. ActivePageIndex:=3; TForm3.BitBtn6Click (Sender: TObject) ;. ActivePageIndex:=2; TForm3.BitBtn7Click (Sender:TObject) ;. ActivePageIndex:=4; TForm3.BitBtn8Click (Sender: TObject) ;. ActivePageIndex:=3; TForm3.BitBtn9Click (Sender: TObject) ;. ActivePageIndex:=5; TForm3.BitBtn10Click (Sender: TObject) ;. ActivePageIndex:=4; TForm3.BitBtn11Click (Sender: TObject) ;. ActivePageIndex:=6; TForm3.BitBtn12Click (Sender: TObject) ;. ActivePageIndex:=5; TForm3.BitBtn13Click (Sender: TObject) ;. ActivePageIndex:=7; TForm3.BitBtn14Click (Sender: TObject) ;. ActivePageIndex:=6; TForm3.N2Click (Sender: TObject);
no:=32-d;
str:= Результат: + inttostr (d) + правильних відповіді (ів) +
# 13 + inttostr (no) + неправильних відповіді (ів). raquo ;; MessageDlg (pchar (str), mtInformation, [mbok], 0)=mrok Then; .Show ;; TForm3.N3Click (Sender: TObject) ;. Terminate ;; TForm3.N5Click (Sender: TObject) ;. Show ;;.
Реєстраційна форма
TTest1.Button1Click (Sender: TObject);(Edit1.Textlt;gt;laquo;raquo;)and(Edit2.Textlt;gt;laquo;raquo;)and(Edit3.Textlt;gt;laquo;raquo;)and(Edit4.Textlt;gt;laquo;raquo;) then; .Show; MessageDlg ( Дані введені не повністю! , mtWarning, [mbok], 0) ;; TTest1.Button2Click (Sender: TObject) ;. Terminate ;; TTest1.N4Click (Sender: TObject) ;. Terminate ;; TTest1.N3Click (Sender: TObject) ;. Show ;; TTest1.Edit1KeyPress (Sender: TObject; var Key: Char); Key=# 13 then begin:=# 0; .SetFocus ;;; TTest1.Edit2KeyPress ( Sender: TObject; var Key: Char); Key=# 13 then begin:=# 0; .SetFocus ;;; TTest1.Edit3KeyPress (Sender: TObject; var Key: Char); Key=# 13 then begin:=# 0 ; .SetFocus ;;; TTest1.N2Click (Sender: TObject);(Edit1.Textlt;gt;laquo;raquo;)and(Edit2.Textlt;gt;laquo;raquo;)and(Edi...
