Программа поиска пути в лабиринте

#include <vcl.h>
#pragma hdrstop
 
#include "Unit7.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->FixedRows = 0;
StringGrid1->FixedCols = 0;
StringGrid1->RowCount = StrToInt(Edit1->Text);
StringGrid1->ColCount = StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
int ARow, bool &CanSelect)
{
StringGrid1->Cells[ACol][ARow]=Edit3->Text;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1DblClick(TObject *Sender)
{
StringGrid1->RowCount = StrToInt(Edit1->Text);
StringGrid1->ColCount = StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int j=0; j<StringGrid1->ColCount; j++)
        for (int i=0; i<StringGrid1->RowCount; i++)
              if (StringGrid1->Cells[j][i]==0) then StringGrid1->Cells[j][i]=1;
}

if (StringGrid1->Cells[j][i]==0) then StringGrid1->Cells[j][i]=1;

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int kil;
typedef int dr[100][100];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void find(dr m, int x,int y,int r,int s)
{
if ((x==s-1) && (y==r-1))
    kil++;
    else
    {
    if (y+1<r)
        if (m[y+1][x]==1)
           find(m,x,y+1,r,s);
    if (x+1<s)
        if (m[y][x+1]==1)
           find(m,x+1,y,r,s);
    }
}
 
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
table->ColCount=CSpinEdit1->Value;
Button1->Click() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit2Change(TObject *Sender)
{
table->RowCount=CSpinEdit2->Value;
Button1->Click() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
int i,j,r=CSpinEdit1->Value, s=CSpinEdit2->Value;
dr dr1;
kil=0;
for (i=0;i<s;i++)
 for (j=0;j<r;j++)
     dr1[i][j]=StrToInt(table->Cells[j][i]);
find(dr1,0,0,s,r);
Edit1->Text="Кількість можливих шляхів = "+IntToStr(kil);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i=0;i<table->ColCount ;i++)
for (int j=0;j<table->ColCount ;j++)
table->Cells [i][j]="0";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close() ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Click() ;
}
//---------------------------------------------------------------------------