orm1. FormShow (Sender: TObject); CreatFishkas (); end;
{скидає всі елементи масиву в true,
масив відповідає за неповторювані порядкові номери фішок
які вибираються випадковим чином
потрібно при ініцілізаціі нової гри} dump (): boolean; i: integer;:=0; for i:=N to M do sorseAr [i]:=true ;;
//безпосередньо алгоритм вибірки неповторюваних значень випадковим образомchoose (): integer; i: integer;:=0; result:=random (M) + 1; while sorseAr [result]=false do result:=random (M) + 1; sorseAr [result]:=false ;; TForm1. CreatFishkas;
//НОВА ГРА, створення ігрового поляi, ty, lx, ch: integer ;; dump (); ty:=POLET; lx:=POLEL; for i:=N to M do begin [i]:=Tfish. Create (Self); btn [i] .Width:=W; btn [i] .Height:=W; btn [i] .Font. Size:=26; btn [i] .Font. Style:=[fsBold]; ch:=choose ();// Отримуємо випадковим чином число 1-16, цифри не повторяються btn [i] .Left:=XYmatrix [ch, 1];// Отримуємо коорденату Х btn [i] .Top:=XYmatrix [ch, 2];// Отримуємо коорденату У [i] .Tag:=ch;// В Tag будемо тримати поточне положення фішки [i] .Name:=prefix + inttostr (i); i lt; gt; M then begin [i] .Caption:=inttostr (i); [i] .OnClick:=ButClicked; else begin [i] .Caption:=«;:=btn [i] .Left; zeroY:=btn [i] .Top ;; [i] .Parent:=Self ;;; TForm1.position (const x, y: integer): integer; i: integer;:=0;:=- 32; i :=N to M do begin ((XYmatrix [i, 1]=x) and (XYmatrix [i, 2]=y)) then:=i; break ;;;; TForm1. ButClicked (Sender: TObject); X, Y, ps: integer;:=Tfish (Sender) .left; Y:=Tfish (Sender) .Top; ((X=zeroX + L) and (Y=zeroY)) or
((X=zeroX - L) and (Y=zeroY)) or
((X=zeroX) and (Y=zeroY + L)) or
((X=zeroX) and (Y=zeroY - L)) then (Sender) .Left:=zeroX; (Sender) .Top:=zeroY; (FindComponent (prefix + inttostr (M ))). left:=X; (FindComponent (prefix + inttostr (M))). top:=Y;:=position (zeroX, zeroY); ps lt; gt;- 32 then (Sender) .Tag:=ps else ( Помилка в логіці проги. КООРДЕНАТИ );:=X; zeroY:=Y;
//Лічильник ходів Begin:=go + 1 ;. Text:=inttostr (go); go=level Then
{KillOldFihkas (); CreatFishkas ();} Timer1. Enabled:=False; Form9. ShowModal; End; victopia (); end; end; TForm1.victopia; i: integer; b: boolean;:=true; i:=0; for i:=N to M - 1 dostrtoint (Tfish (FindComponent (prefix + inttostr (i))). Caption) (FindComponent (prefix + inttostr (i))). Tag thenb:=false; break; end; end; b then//перемога:=IntToStr (hour) + : + IntToStr (min) + : + IntToStr (sec); Timer1. Enabled:=False; Form10. Label1. Caption:=Name_Igrok + Form10. Label1. Caption; Form10. Label2. Caption:= За + time + часу raquo ;; Form10. Label9. Caption:= І за + inttostr (go) + ходів raquo ;; Form10. Show; Form11.ADOQuery1. Recordset. MoveLast; id:=Form11.ADOQuery1. Recordset. Fields [0] .Value; Form11.ADOQuery1. InsertRecord ([IntToStr (id + 1), Name_Igrok, IntToStr (go), time, Label3. Caption]); End; End; end; TForm1. KillOldFihkas; i: integer; for i:=N to M do FreeAndNil (btn [i]); end; TForm1.F21Click (Sender: TObject); KillOldFihkas (); CreatFishkas (); Timer1. Enabled:=False; hour:=0; min:=0; sec:=0; go:=0; BitBtn1. Visible:=True; BitBtn3. Visible:=False; Edit1. Text:= 00 raquo ;; Edit2. Text:= 00 raquo ;; Edit3. Text:= 00 raquo ;; Edit4. Text:= +0000 raquo ;; Label13. Visible:=True; Label3. Caption:= Вік raquo ;; Label12. Caption:= Не вказаний raquo ;; Label14. Caption:= raquo ;; Image1. Visible:=True; Image2. Visible:=False; Image3. Visible:=False; Form2. Edit1. Text:= raquo ;; Form2. RadioButton1. Checked:=False; Form2. RadioButton2. Checked:=False; Form2. ComboBox1. Text:= Вкажіть ваш вік raquo ;; Form2. ComboBox2. Text:= не вказано raquo ;; Form2. BitBtn1. Enabled:=False; Form2. ComboBox2. Enabled:=False; Form2. ShowModal; end; TForm1.F101Click (Sender: TObject); Form11. Show; end; TForm1.N3Click (Sender: TObject); KillOldFihkas (); CreatFishkas (); Timer1. Enabled:=False; hour:=0; min:=0; sec:=0; go:=0; BitBtn1. Visible:=False; Edit1. Text:= 00 raquo ;; Edit2. Text:= 00 raquo ;; Edit3. Text:= 00 raquo ;; Edit4. Text:= 00000 raquo ;; Form12. ShowModal; end; TForm1. BitBtn1Click (Sender: TObject); Timer1. Enabled:=False; Form4. ShowModal; end; TForm1. Timer1Timer (Sender: TObject); sec:=sec + 1; if sec gt;=60 thenbegin sec:=0; min:=min + 1 end; if min gt;=60 then begin min:=0; hour:=hour + 1 end; Edit1. Text:=IntToStr (hour); Edit2. Text:=IntToStr (min); Edit3. Text:=IntToStr (sec); end; TForm1. FormClose (Sender: TObject; var Action: TCloseAction); Form2. Close; Form3. Close; Form4. Close; end; TForm1.N5Click (Sender: TObject); Form5. Show; end; TForm1.N6Click (Sender: TObject); Form6. Show; end; T...
