s);(fil,s);.Position:=strtoint(s);(fil);; } (fil, extractfilepath (paramstr (0)) + time.001 ); (fil); EInOutError do ;; i lt; gt; 885 then (fil, s); s lt; gt; 0: 00: 00 then.Caption:=s ;; (fil) ;. ActivePage:=TabSheet1 ;; TOsnow.FormClose (Sender: TObject; var Action: TCloseAction); K: integer;:=Application.MessageBox ( Закінчити роботу з програмою? , , mb_YesNo); k=idYes then.Active:=false;.Active:=false;;k=idNo then:=caNone ;;; TOsnow.FormActivate (Sender: TObject) ;. Active: =false; .TableType:=ttParadox;
//Wopros.TableName:=NastroikiTest.Value; .Active:=true ;; TOsnow.TabSheet2Show (Sender: TObject) ;. Clear;:=FindFirst (extractfilepath (paramstr (0)) + *. db , faanyfile, sr); res=0 do(sr.name=laquo;Nastroiki.DBraquo;)or(sr.name=laquo;Polz.DBraquo;)or(sr.name=laquo;Rezult.DBraquo;)or(sr.name=laquo;Wopr.DBraquo;) then.Items.Add (sr.name) ;;:=findnext (sr) ;; (sr); Form2.CheckBox1.Checked=true then.Caption:=TimeToStr (Form2.DateTimePicker1.Time) ;. Visible:=true ; .Visible:=false ;; TOsnow.ButtonClick (a: integer) ;. RecNo:=Tekwopros[a];.Clear;.Lines.Add(WoprosVopros.AsString);.Items.Clear;.Items.Add(WoprosOtvet1.AsString);.Items.Add(WoprosOtvet2.AsString);.Items.Add(WoprosOtvet3.AsString);.Items.Add(WoprosOtvet4.AsString);.ItemIndex:=otwet[a];;TOsnow.FormActiv();NomerWoprosa=WsegoWoprosow then.Enabled:=false; .Visible:=true; .Enabled:=true; .Visible:=false ;; NomerWoprosa=0 then.Enabled:=false.Enabled:=true ;; TOsnow.Button1Click (Sender: TObject) ; 1; Edit1.Text= then. MessageBox ( Зарегистрируйтесь! Raquo;, Попередження , mb_OK);
Edit1.SetFocus ;;; ComboBox2.Text= then.MessageBox ( не встановлено тест!raquo;,laquo;Предупреждениеraquo;,mb_OK);.SetFocus;;;:=true;.Active:=false;.TableName:=ComboBox2.Text;.Active:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;Form2.CheckBox1.Checked=true then.Enabled:=true;:=Form2.DateTimePicker1.DateTime; .Enabled:=false;:=0;:=Wopros.RecordCount - 1;
{if (Osnow.Wopros.RecordCount + 1) lt; WsegoWoprosow then
begin.MessageBox ( Записів з питаннями в базі даних менше, +
ніж встановлено в налаштуваннях. +
Зверніться до адміністратора. , Попередження , mb_OK);
Err:=true; .Close ;;; }
{RezTest.StringGrid1.ColCount:=WsegoWoprosow + 2; .StringGrid1.RowCount:=3; }; i:=0 to WsegoWoprosow do
::=random (Wopros.RecordCount + 1); j:=0 to i do (prosto=Tekwopros [j]) or (prosto=0) then goto 1;// Перевірка на повторне входження питання [i]:=prosto; [i]:=- 1; .Lines.Add (inttostr (Tekwopros [i])) ;; (); (NomerWoprosa) ;; TOsnow.Button3Click (Sender:TObject);:=NomerWoprosa + 1; (); (NomerWoprosa) ;; TOsnow.Button2Click (Sender: TObject);:=NomerWoprosa - 1; (); (NomerWoprosa) ;; TOsnow.Button4Click (Sender: TObject); Form2.CheckBox1.Checked=true then
. Enabled:=false; .Enabled:=False; .Active:=true; .Append; .Value:=Edit1.Text + + Edit2.Text + + Edit3.Text; .Value:=Edit4.Text; .Value:=Date; .Value:=ComboBox2.Text;:=0; i:=0 to WsegoWoprosow do.RecNo:=Tekwopros [i]; WoprosRightOtv.AsInteger =otwet [i] +1 then:=prawOtw + 1 ;;. Value:=prawOtw; .Value:=roundTo ((prawOtw * 100)/(WsegoWoprosow + 1), - 2);
{Osnow.Nastroiki.Active:=true;.Nastroiki.Last; }:=0; ((prawOtw * 100)/(WsegoWoprosow + 1)) gt;=Form4.TrackBar1.Position then:=5 ((prawOtw * 100)/(WsegoWoprosow + 1)) gt;=Form4.TrackBar2. Position then:=4 ((prawOtw * 100)/(WsegoWoprosow + 1)) gt;=Form4.TrackBar3.Position then:=3:=2;.RezultatiOzenka.Value:=ozen;.Value:=WsegoWoprosow+1;.Value:=prawOtw;.Post;.MessageBox(PChar(laquo;Правильных відповідей + IntToStr (prawOtw) + з + IntToStr (WsegoWoprosow + 1) + питань. ), Результат ', mb_OK);
//Rezultati.Active:=false;:=false;.Enabled:=false;.Lines.Clear;.Items.Clear;.Enabled:=false;;TOsnow.RadioGroup1Click(Sender: TObject); [NomerWoprosa]:=RadioGroup1.ItemIndex ;; TOsnow.Timer1Timer (Sender: TObject);:=TimeTest-StrToTime ( 00: 00: 01 ); TimeToStr (TimeTest)= 0: 00: 00 raquo ; then.Enabled:=false; .MessageBox ( Час закінчилося! ,laquo;Предупреждениеraquo;,mb_OK);Click(Button4);;;.Caption:=timeToStr(TimeTest);;TOsnow.PageControl1Change(Sender: TObject); (TestNach=true) then.ActivePage:=TabSheet2; .MessageBox ( Для переходу на іншу сторінку необхідно завершити тестування. Raquo;, Помилка , mb_OK) ;; PageControl1.ActivePage=TabSheet1 then.Navigate(extractfilepath(paramstr(0))+laquo;AzbukaKompaindex.htmraquo;);;TOsnow.N2Click(Sender: TObject) ;. Edit1.Clear; .Show ;; TOsnow.N5Click (Sender: TObject) ;. Show ;; TOsnow.Button13Click (Sender: TObject) ;. Execute ;; TOsnow.N6Click (Sender: TObject) ;: file;:integer;:=ShellExecute (handle, open , help/index.htm , Nil, Nil, SW_SHOWNORMAL) ;...
