downto 1 do (Tow.Left = Pan [i]. Left + Pan [i]. Width/2 - 5) and
(Tow.Left = Pan [j]. Left + Pan [j]. Width/2 - 5) then (StrToInt (Pan [i]. Caption)> StrToInt (Pan [j] . Caption)) then.Text: = Pan [j]. Caption; StrToInt (Ed2.Text) = 0 then.Text: ='';; TForm1.Move (Pan1, Pan2: TPanel; Ed: TEdit),. Left : = StrToInt (FloatToStr (Pan2.Left + Pan2.Width/2 - Pan1.Width/2). Top: = Pan2.Top - 20 * StrToInt (Ed.Text);; TForm1.N2Click (Sender: TObject); ( Sender);; TForm1.Timer1Timer (Sender: TObject);: = IntToStr (StrToInt (s) + 1); (s = '60 ') then: = IntToStr (StrToInt (m) + 1);: = '00' ;; Length (s) = 1 then: = '0 '+ IntToStr (StrToInt (s)); Length (m) = 1 then: = '0' + IntToStr (StrToInt (m) + 1);. Panels.Items [0]. Text: = 'Час гри:' + m + ':' + s;; TForm1.PanelClick (Sender: TObject); ((Sender as TPanel). Caption = Edit4.Text) or
((Sender as TPanel). Caption = Edit5.Text) or
((Sender as TPanel). Caption = Edit6.Text) theni: = 1 to UpDown1.Position do [i]. Color: = clBlue; (Sender as TPanel): = clLime;: = (Sender as TPanel),: = True,. Caption: = 'Перемістіть диск';;; TForm1.Game (Sen: TObject), MessageDlg ('Ви впевнені, що хочете закінчити цю гру і почати нове?',, [mbOK , mbCancel], 0) = 1 theni: = 1 to n do [i]. Destroy; (Sen);. Enabled: = True;. Enabled: = True;. Visible: = True;. Caption: = 'Виберіть диск для переміщення ';: = UpDown1.Position; (p, UpDown1.Position + 1); i: = 1 to UpDown1.Position do.Text: = IntToStr (i);. Text: = IntToStr (1); [i] : = TPanel.Create (Self); [i]. Height: = 20; [i]. Width: = Panel5.Width - 16 * (UpDown1.Position - i + 1); [i]. Left: = (Panel2 . Left + 5) - StrToInt (FloatToStr (p [i]. Width/2)); [i]. Top: = Panel5.Top - p [i]. Height * (UpDown1.Position - i + 1); [ i]. Color: = clBlue; [i]. Anchors: = [akLeft, akBottom]; [i]. Font.Color: = clYellow; [i]. Font.Style: = [fsBold]; [i]. Caption : = IntToStr (i); [i]. OnClick: = PanelClick; [i]. Parent: = Panel1;;;; TForm1.N4Click (Sender: TObject); MessageDlg ('Закінчити гру і вийти?', mtInformation, [ mbOK, mbCancel], 0) = 1 then;;.
7. Описання програми
procedure TForm1.FormCreate (Sender: TObject); Створення головної форми та малювання вежprocedure TForm1.Pos (Panel: TPanel); Переміщення диска при его віділенніprocedure TForm1.Sel (Pan1: TObject; Pan: Pin; Ed1, Ed2, Ed3: TEdit); Віділення діскуprocedure TForm1.Button3Click (Sender: TObject); визиває Відомості про програму procedure TForm1.EndOfGame; Закінчення гріprocedure TForm1.Hig (Pan: Pin; Tow: TPanel; Ed1, Ed2: TEdit); Графічне відображення диску на новій вежіprocedure TForm1.Move (Pan1, Pan2: TPanel; Ed: TEdit); Процедура підрахунку координат при переміщенніprocedure TForm1.N2Click (Sender: TObject); клавіша Нової гріprocedure TForm1.Timer1Timer (Sender: TObject...
