Курсовая работа: Поиск кратчайшего пути в лабиринте 2

showmessage('нет выхода из лабиринта');

zEnd:=y; //Последняя пройденная

break;

end;

Mark[y]:=TRUE;

end;

Класса TOcno рисование лабиринта

TOcno = class(TObject)

public

mI:TRect;//Железное окно

mC:TCanvas;//Графический контекст

m,n:Integer;//Размерность (m,n)

R: array of array of TRect;//Сеть прямоугольников

C0,C1: TColor;

public

procedure Init();

procedure Done();

procedure Draw(wCvas:TCanvas; wIron:TRect; md:TWay);

procedure DrawRect(i,j:Integer; md:Tway);

procedure Organize(zR: TRect);

function MouseRect(mX,mY:Integer; md:Tway):Boolean;

procedure DrawWay(md:Tway);

end;

Ключевые методы класса TOcno.

// процедура формирует сеть прямоугольников

procedure TOcno.Organize(zR: TRect);

var i,j,d,k:Integer;

x,y,z:array of Integer;

pr:String;