Form1.N4Click (Sender: TObject); Form7. Show; end; TForm1.N7Click (Sender: TObject); Timer1. Enabled:=False; Form8. ShowModal; end ;. BitBtn3Click (Sender: TObject); begin KillOldFihkas (); CreatFishkas (); hour:=0; min:=0; sec:=0; go:=0; Timer1. Enabled:=True; BitBtn1. Visible:=True; BitBtn3. Visible:=False; end; procedureTForm1. Button1Click (Sender: TObject); begintime:=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; Begin 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; procedure TForm1.N8Click (Sender: TObject); beginApplication. Terminate (); end; end.
Додаток Б
Лістінг модуля Unit2
unit Unit2; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, XPMAN;=class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; BitBtn1: TBitBtn; Image1: TImage; Edit1: TEdit; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Label5: TLabel; Label6: TLabel; Label7: TLabel; ComboBox1: TComboBox; Label8: TLabel; ComboBox2: TComboBox; procedure BitBtn1Click (Sender: TObject); procedure ComboBox1Change (Sender: TObject); ComboBox2Change (Sender: TObject); {Private declarations} public {Public declarations} end ;: TForm2; Name_Igrok: String; implementationUnit1, Unit3, Unit4, Unit10, Unit11, Unit12, Unit5, Unit6, Unit7, Unit8, Unit9; {$ R * .dfm} TForm2. BitBtn1Click (Sender: TObject); Begin if Edit1. Text= Then Edit1. Text:= Анонім raquo ;; Name_Igrok:=Edit1. Text; Form1. Label2. Caption:=Name_Igrok; End; if RadioButton1. Checked=True then Begin Form1. Image2. Visible:=True; Form1. Image1. Visible:=False; Form1. Image3. Visible:=False; End; if RadioButton2. Checked=True then Begin Form1. Image3. Visible:=True; Form1. Image1. Visible:=False; Form1. Image2. Visible:=False; End; Form3. Timer1. Enabled:=True; Form3. ShowModal; end; procedure TForm2. ComboBox1Change (Sender: TObject); Spisok: byte ;. Enabled:=True; Spisok:=ComboBox1. ItemIndex; Spisok of
: begin Form1. Label3. Caption:= 1год raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end;
...
: begin Form1. Label3. Caption:= 17років raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end;
: begin Form1. Label3. Caption:= 18років raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end;
: begin Form1. Label3. Caption:= 19років raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end;
: begin Form1. Label3. Caption:= 20років raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end;
...
: begin Form1. Label3. Caption:= 99лет raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end elseForm1. Label3. Caption:= 100років raquo ;; Form1. Label3. Font. Color:=clpurple; Form1. Label13. Visible:=False; end; end; end; TForm2. ComboBox2Change (Sender: TObject); Levelof: byte ;. Enabled:=True;:=ComboBox2. ItemIndex; Levelof of
: begin Form1. Label12. Caption:= Легкий raquo ;; Form1. Label14. Caption:= тисячі ходів raquo ;; Form1. Label12. Font. Color:=clGreen; level:=1000; end;
: begin Form1. Label12. Caption:= Нормальний raquo ;; Form1. Label14. Caption:= 500 ходів raquo ;; Form1. Label12. Font. Color:=clBlue; level:=500; end; 2: begin Form1. Label12. Caption:= Важкий raquo ;; Form1. Label14. Caption:= 150 ходів raquo ;; Form1. Label12. Font. Color:=clOlive; level:=150; end elsebeginForm1. Label12. Caption:= нереальними raquo ;; Form1. Label14. Caption:= 1ход raquo ;; Form1. Label12. Font. Color:=clOlive; level:=1; end; end; end; end.
Додаток В
Лістінг модуля Unit3
unit Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, XPMAN, ComCtrls, ExtCtrls, jpeg;=class (TForm): TImage ;: TTimer ;: TProgressBar; Timer1Timer (Sender: TObject);
{Private declarations} public {Public declarations} end...
