Реферат Об'єктний підхід реалізації програмних систем

: TImage ;: TImage;: TImage; FormCreate (Sender: TObject); StartMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); StartMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y : Integer); ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Start01MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Start01MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);

{Private declarations}

{Public declarations};: TIntro;, WholestepsText, playkeyb, playmouse: string; Unit1, Unit2;

{$ R *. dfm} Play;: = 'Âû âûèãðàëè ! ';: =' Âñåãî õîäîâ : ';;. showmodal;; Play2;: = 'Âû âûèãðàëè ! ';: =' Âñåãî õîäîâ : ';;. showmodal;; TIntro. FormCreate (Sender: TObject);. left: = (screen. Width-Intro. Width) div 2;. top: = (screen. Height-Intro. Height) div 2;; TIntro. StartMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TIntro. StartMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;;; TIntro. ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TIntro. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;;; TIntro. Start01MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TIntro. Start01MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;;;.

Вікно з числовим ігровим полем

Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls; = class (TForm): TImage;: TLabel;

Label2: TLabel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage; FormCreate (Sender: TObject); Image1Click (Sender: TObject); FormPaint (Sender : TObject); FormKeyDown (Sender: TObject; var Key: Word;: TShiftState); SwitchClick (Sender: TObject); ResetClick (Sender: TObject); ExitClick (Sender...