Реферат: Игра Мозайка на Делфи Delphi

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

const

H=4;

W=4; // размер поля 4*4 клетки

var

widt,heig:integer; // ширина и высота одной клетки

pole:array[1..H,1..W] of byte; // свойства поля

zx,zy:integer; // координаты пустой клетки

pos:array[1..H, 1..W] of byte =(( 1, 2, 3, 4),( 5, 6, 7, 8),( 9,10,11,12),(13,14,15, 0)); // выигрышный вариант

pic:TBitmap; // сама картинка

procedure TForm1.New;

var

f: string[20]; // файл загружаемой картинки

i,j: integer;

begin

f:='picture10.bmp';

try

pic.LoadFromFile(f);

except

on EFopenError do

begin

ShowMessage('Ошибка загрузки файла');

Form1.Close;

end;

end;