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

Тема: Курсовые обзорные

;; TMain. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;;. p align="justify"> Вікно з літерним ігровим полем

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

Label1: TLabel;: 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: TObject); SwitchMouseDown (Sender: TObject; Button : TMouseButton; Shift: TShiftState; X, Y: Integer); SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X , Y: Integer); ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ExitMouseUp ( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

{Private declarations}

{Public declarations};: TMain1;: array [1.16] of integer;, keybpos: integer;: string; pre;

{$ R *. dfm} startpjat ();, q, w, a: integer;: = 0;. label2. caption: = '0 ';; [1]: = random (16); i: = 2 to 16 do: = 1; (a = 1) do: = 0; [i]: = random (16); q : = i-1 downto 1 do (pjat [i] = pjat [q]) then w: = w +1; (w = 0) then a: = 2;;;; ReloadPole (canvas: TCanvas); i, q, w, x, y: integer;: array [1.15] of char; [1]: = 'a'; [2]: = 'b'; [3]: = 'c'; [4]: вЂ‹вЂ‹= 'd'; [5]: = 'e'; [6]: = 'f'; [7]: = 'g'; [8]: = 'h'; [9]: = 'i'; [ 10]: = 'j'; [11]: = 'k'; [12]: = 'l'; [13]: = 'm'; [14]: = 'n'; [15]: = ' o ';. Rectangle (0,0, 201, 201); keyb = 'yes' then. Brush. Color: = clGradientInactiveCaption; keybpos of

: begin x: = 0; y: = 0; end;

: begin x: = 50; y: = 0; end;

: begin x: = 100; y: = 0; end;

: begin x: = 150; y: = 0; end;

: begin x: = 0; y: = 50; end;

: begin x: = 50; y: = 50; end;

: begin x: = 100; y: = 50; end;

: begin x: = 150; y: = 50; end;

: begin x: = 0; y: = 100; end;

: begin x: = 50; y: = 100; end;

: begin x: = 100; y: = 100; end;

: begin x: = 150; y: = 100; end;