maze.cpp

這是一個可以產生迷宮的程式,並且只有唯一一個出口,可以讓程式自動找出口.

//---------------------------------------------------------------------------
#include <vcl.h>
#include <time.h>
#pragma hdrstop

#include "maze.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define SizeX 200
#define SizeY 200

char maz[SizeX*SizeY];
int multiple=57;
int offset=1;
int Cell[SizeX][SizeY],CV;
int StartX,StartY,EndX,EndY;
int Found,DelayTime=20;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::DrawGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
     //  Cell[ARow][ACol]== 1 ->Wall
     if (Cell[ARow][ACol]== 1)
        {
          DrawGrid1->Canvas->Brush->Color = clBlue;
          DrawGrid1->Canvas->Font->Color = clRed;
          DrawGrid1->Canvas->FillRect(Rect);
        }

     //  Cell[ARow][ACol]== 2 ->Start Point
     else if(Cell[ARow][ACol]== 2)
        {
          DrawGrid1->Canvas->Brush->Color = clRed;
          DrawGrid1->Canvas->Font->Color = clYellow;
          DrawGrid1->Canvas->FillRect(Rect);
          DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.Top, "S");
        }
     //  Cell[ARow][ACol]== 3 ->End Point
     else if(Cell[ARow][ACol]== 3)
        {
          DrawGrid1->Canvas->Brush->Color = clBlack;
          DrawGrid1->Canvas->Font->Color = clRed;
          DrawGrid1->Canvas->FillRect(Rect);
          DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.Top, "E");
        }
     //  Cell[ARow][ACol]== 4 ->Visit Point
     else if(Cell[ARow][ACol]== 4) //