Сапер на Delphi

//Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,0,true);
//flag:=true;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, ImgList;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
const VarLeft =16;
      VarTop = 16;
      n=10; //øèðèíà ìèííîãî ïîëÿ
      m=10; //âûñîòà ìèííîãî ïîëÿ
      b=10; //êîëè÷åñòâî ìèí
var
  i, j : Integer;
  Pole:array[1..n,1..m] of byte; //èãðîâîå ïîëå
  {åñëè 0 - êëåòêà ïóñòàÿ
  åñëè 1 - êëåòêà ñ åäåíèöåé(âîêðóã íå¸ òîëüêî îäíà áîìáà)
  åñëè 2 - êëåòêà ñ äâîéêîé(âîêðóã äâå áîìáû)
  åñëè 3 - êëåòêà ñ òðîéêîé(âîêðóã íå¸ 3 áîìáû)
  åñëè 4 - êëåòêà ñîäåðæèò áîìáó
  åñëè 5 - êëåòêà íå îòêðûòà(ñåðîãî öâåòà) }
  flag:boolean; //åñëè true, òî èãðà çàâåðøåíà
 
 Procedure Open( row, col : integer);
    begin
    if(flag=false) then
       if ((Mass[row,col]= 0)or(Mass[row,col]= 1)or(Mass[row,col]= 2)or(Mass[row,col]= 3)) then //íåò ìèíû, çíà÷èò ìîæíî îòêðûâàòü êëåòêè
            begin
 Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,mass[row,col],true);
      mass[row,col]:=10;  //ýòà êëåòêà óæå ïðîâåðåíà
 if(col>1)and(row>1)and(col<m)and(row<n) then begin
               Open(row,col-1);
               Open(row-1,col);
               Open(row,col+1);
               Open(row+1,col);
               //ïðèìûêàþùèå äèàãîíàëüíî
               Open(row-1,col-1);
               Open(row-1,col+1);
               Open(row+1,col-1);
               Open(row+1,col+1);
               end;
             end           
       else begin
//Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,0,true);
//flag:=true;
            end;
 
 end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var _i,k,_n,_m:integer;
label h;
begin
for i:=1 to n do
 for j:=1 to m do mass[i,j]:=0;
 
Form1.Refresh;
 
Randomize;
for _i:=1 to b do begin
h: _n:=Random(n);
_m:=Random(m);
 if(mass[_n,_m]<>4)then mass[_n,_m]:=4
                   else goto h;
      end;
 
for i:=2 to n-1 do  //ðàñ÷åò êîëè÷åñòâà áîìá âîêðóã òåêóùåé êëåòêè áåç ó÷åòà ñòîðîí
 for j:=2 to m-1 do
      if (mass[i,j]<>4)then begin
                           k:=0;
                          if (mass[i+1,j]=4) then inc(k);
                          if (mass[i,j+1]=4) then inc(k);
                          if (mass[i+1,j+1]=4) then inc(k);
                          if (mass[i-1,j]=4) then inc(k);
                          if (mass[i,j-1]=4) then inc(k);
                          if (mass[i-1,j-1]=4) then inc(k);
                          if (mass[i+1,j-1]=4) then inc(k);
                          if (mass[i-1,j+1]=4) then inc(k);
                          if(k<3)then
                           mass[i,j]:=k;
                              end;
 
for i:=1 to n do   // ïðîâåðÿåì ñîòîíû ïðÿìîóãîëüíèêà
 if (mass[i,m]<>4)then begin
      k:=0;
     if (mass[i+1,m]=4) then inc(k);
     if (mass[i+1,m-1]=4) then inc(k);
     if (mass[i,m-1]=4) then inc(k);
     if (mass[i-1,m-1]=4) then inc(k);
     if (mass[i-1,m]=4) then inc(k);
      mass[i,m]:=k;
          end;
 
for i:=1 to n do
 if (mass[i,1]<>4)then begin
      k:=0;
     if (mass[i+1,1]=4) then inc(k);
     if (mass[i+1,2]=4) then inc(k);
     if (mass[i,2]=4) then inc(k);
     if (mass[i-1,2]=4) then inc(k);
     if (mass[i-1,1]=4) then inc(k);
      mass[i,1]:=k;
          end;
          
for j:=1 to m do
 if (mass[1,j]<>4)then begin
      k:=0;
     if (mass[1,j+1]=4) then inc(k);
     if (mass[2,j+1]=4) then inc(k);
     if (mass[2,j]=4) then inc(k);
     if (mass[2,j-1]=4) then inc(k);
     if (mass[1,j-1]=4) then inc(k);
      mass[1,j]:=k;
          end;
 
for j:=1 to m do
 if (mass[n,j]<>4)then begin
      k:=0;
     if (mass[n,j+1]=4) then inc(k);
     if (mass[n-1,j+1]=4) then inc(k);
     if (mass[n-1,j]=4) then inc(k);
     if (mass[n-1,j-1]=4) then inc(k);
     if (mass[n,j-1]=4) then inc(k);
      mass[n,j]:=k;
          end;
 
for i:=1 to n do   //çàïîëíÿåì ñåðûìè êíîïî÷êàìè âíà÷àëå
 for j:=1 to m do
    Form1.ImageList1.Draw(Form1.Canvas,(i-1)*VarLeft,(j-1)*VarTop,5,true);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Width:=300;
Form1.Height:=400;
end;
 
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if(Button=mbLeft)and(trunc(X/VarLeft)>-1)and(trunc(X/VarLeft)<10)and(trunc(Y/VarTop)>-1)and(trunc(Y/VarTop)<10)then begin
 flag:=false;
Open(trunc(X/VarLeft)+1,trunc(Y/VarTop)+1);
end;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, ImgList;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
const VarLeft =16;
      VarTop = 16;
      n=10; //ширина минного поля
      m=10; //высота минного поля
      b=10; //количество мин
var
  i, j : Integer;
  Pole:array[1..n,1..m] of byte; //игровое поле
  {если 0 - клетка пустая
  если 1 - клетка с еденицей(вокруг неё только одна бомба)
  если 2 - клетка с двойкой(вокруг две бомбы)
  если 3 - клетка с тройкой(вокруг неё 3 бомбы)
  если 4 - клетка содержит бомбу
  если 5 - клетка не открыта(серого цвета)
  если 6 - клетка содержит флаг
  если 7 - клетка образует "забор"
  если 8 - клетка уже открыта }
  flag:integer; //флаг состояния игры
  {-1 - игра не начата
  1- игра в процессе
  2- выигрыш
  3 - проигрыш
  }
  b_o:integer;//к-во открытых бомб
  Pole_flags:array[1..n,1..m] of byte; //поле для флажков
 
 function Open_pole():integer;
 var i,j:integer;
     kol:integer;
  begin
  kol:=0;
   for i:=1 to n do
    for j:=1 to m do
if(Pole[i,j]=8)then inc(kol);
  Open_pole:=kol;
  end;
 
 Procedure Open( row, col : integer);
    begin
    if(flag=1)then begin
    case Pole[row,col] of
    0:if(Pole[row,col]<>8) then
            begin
 Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,Pole[row,col],true);
      Pole[row,col]:=8;  //эта клетка уже проверена и открыта
 if(col>1)and(row>1)and(col<m)and(row<n) then begin
           if(col<>1)then Open(row,col-1);
           if(row<>1)then Open(row-1,col);
           if(col<>m)then Open(row,col+1);
           if(row<>n)then Open(row+1,col);
               //примыкающие диагонально
          if(row<>1)and(col<>1)then  Open(row-1,col-1);
          if(row<>1)and(col<>m)then  Open(row-1,col+1);
          if(row<>n)and(col<>1)then  Open(row+1,col-1);
          if(row<>n)and(col<>m)then  Open(row+1,col+1);
               end;
             end;
    1..3:begin
    Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,Pole[row,col],true);
    Pole[row,col]:=8;  //эта клетка уже проверена и открыта
    end;
 
    4:begin
    Form1.ImageList1.Draw(Form1.Canvas,(row-1)*VarLeft,(col-1)*VarTop,Pole[row,col],true);
    flag:=3;
    Form1.Caption:='Lyise';
    Pole[row,col]:=8;  //эта клетка уже проверена и открыта
      end;
      end;
      end;
      if(n*m-open_pole=b)then begin
                    flag:=2; //ура выигрыш
                    Form1.Caption:='Win';
                              end;
 end;  
 
 procedure DrawPole(MyCanvas:TCanvas; index:integer; i,j:integer);
 begin
    Form1.ImageList1.Draw(MyCanvas,(i-1)*VarLeft,(j-1)*VarTop,index,true);
 end;
 
 procedure NewGame();
 var _i,k,_n,_m:integer;
 
 begin
for i:=1 to n do  //заполним игровое поле серыми кнопочками
 for j:=1 to m do Pole[i,j]:=5;
 
for i:=1 to n do  //заполним игровое поле серыми кнопочками
 for j:=1 to m do Pole_flags[i,j]:=0;
 
flag:=-1; // игровой процесс не начат
b_o:=0;
 end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j:integer;
begin
Form1.Caption:='NewGame';
NewGame();
Form1.Refresh;
  for i:=1 to n do
 for j:=1 to m do
DrawPole(Form1.Canvas,Pole[i,j],i,j);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Width:=300;
Form1.Height:=400;
end;
 
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var _i,_n,_m,_x,_y,k:byte;
  label h;
begin
_x:=trunc(X/VarLeft);
_y:=trunc(Y/VarTop);
if(Button=mbLeft)and(_x>-1)and(_x<10)and(_y>-1)and(_y<10)then begin
 if(flag=-1)then begin // если игровой процесс еще не начат
      flag:=1;// игровой процесс начат
 
  for i:=1 to n do  //заполним игровое поле нулями
 for j:=1 to m do Pole[i,j]:=0;
 
 randSeed:=_x*_y;  //инициализация ГСЧ
  for _i:=1 to b do begin
  h: _n:=Random(n)+1;
   _m:=Random(m)+1;
   if(Pole[_n,_m]<>4)then Pole[_n,_m]:=4
                   else goto h;
                    end;
 
for i:=1 to n do  //расчет количества бомб вокруг текущей клетки без учета сторон
 for j:=1 to m do
      if (Pole[i,j]<>4)then begin
      k:=0;
  if (Pole[i+1,j]=4)then inc(k);
  if (Pole[i,j+1]=4)then inc(k);
  if (Pole[i+1,j+1]=4)then inc(k);
  if (Pole[i-1,j]=4)then inc(k);
  if (Pole[i,j-1]=4)then inc(k);
  if (Pole[i-1,j-1]=4)then inc(k);
  if (Pole[i+1,j-1]=4)then inc(k);
  if (Pole[i-1,j+1]=4)then inc(k);
 Pole[i,j]:=k;
           end;
           end;
              Open(_x+1,_y+1);
 
end;
if(Button=mbRight)then begin
if(Pole[_x+1,_y+1]<>8)then begin
                     if(Pole_flags[_x+1,_y+1]=0)then begin
                                      Pole_flags[_x+1,_y+1]:=1;
                                      DrawPole(Form1.Canvas,6,_x+1,_y+1);
                                      end
                                      else begin
                                      Pole_flags[_x+1,_y+1]:=0;
                                      DrawPole(Form1.Canvas,5,_x+1,_y+1);
                                      end;
 
                       end;
         end;
end;
 
end.

MyBitmap:TBitmap

procedure TForm1.Form1Create(Sender: TObject);
var
  row,col : integer;
begin
   // В неотображаемые эл-ты массива, которые соответствуют
   // клеткам по границе игрового поля запишем число -3.
   // Это значение используется функцией Open для завершения
   // рекурсивного процесса открытия соседних пустых клеток.
   for row :=0 to MR+1 do
   for col :=0 to MC+1 do
     Pole[row,col] := -3;
   NewGame();  // "разбросать" мины
   Form1.ClientHeight := H*MR + 1;
   Form1.ClientWidth := W*MC + 1;
end;

MyBitMap:=TBitMap.Create;
Form1.Canvas.CopyRect(Bounds(0,0,100,100), MyBitMap.Canvas, Bounds(0, 0, 100, 100));
Form1.Canvas.Draw(10,10,MyBitMap);
MyBitMap.Free;

const VarLeft =16;
      VarTop = 16;
      n=10; //ширина минного поля
      m=10; //высота минного поля
      b=10; //количество мин
...
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var _i,_n,_m,_x,_y,k:byte;
  label h;
begin
_x:=trunc(X/VarLeft);
_y:=trunc(Y/VarTop);
if(Button=mbLeft)and(_x>-1)and(_x<10)and(_y>-1)and(_y<10)then begin
 if(flag=-1)then begin // если игровой процесс еще не начат
      flag:=1;// игровой процесс начат
 
  for i:=1 to n do  //заполним игровое поле нулями
 for j:=1 to m do Pole[i,j]:=0;
 
 randSeed:=_x*_y;  //инициализация ГСЧ
  for _i:=1 to b do begin
  h: _n:=Random(n)+1;
   _m:=Random(m)+1;
   if(Pole[_n,_m]<>4)then Pole[_n,_m]:=4
                   else goto h;
                    end;
...