[DayBreak]

Мне нужно оформить программу по нахождению кратчайшего пути


Код у меня почти есть,единственное,что я никак не могу понять,так это как работать с направлениями.Мне подсказали,что надо сделать так

Код:

1 2	type   TDirection=(drLeft,drRight,drUp,drDown,drRightUp,drRightDown,drLeftUp,drLeftDown);

и записывать при каждом шаге в массив этот параметр,но я не понимаю,как программа поймет какой параметр записывать.
Хелп.

Код программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids,Math;   type   TDirection=(drLeft,drRight,drUp,drDown,drRightUp,drRightDown,drLeftUp,drLeftDown);   {TDirs=record     drLeft,drRight,drUp,drDown,drRightUp,drRightDown,drLeftUp,drLeftDown:(i,j);     end;   }     TForm1 = class(TForm)     StringGrid1: TStringGrid;     Button1: TButton;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label7: TLabel;     Label8: TLabel;     Label9: TLabel;     Label10: TLabel;     Label11: TLabel;     Label12: TLabel;     Label13: TLabel;     Label14: TLabel;     Label15: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); const   n=7;   m=6;   d=1;   lock=50;    //заблокированные клетки type   ArrDir=array of TDirection;   Matrix=array[1..n,1..m] of integer; var   A:Matrix;   k,i,j,Rand1,Rand2:integer; begin        FillChar(A,SizeOf(A),0);   for i:=1 to High(a) do     for j:=1 to High(a) do      StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);     for k:=1 to 3 do     begin       Rand1:=RandomRange(1,8);                        //определяю рандомные запрещенные клетки       Rand2:=RandomRange(1,7);       StringGrid1.Cells[Rand1,Rand2]:=IntToStr(lock);     end;     StringGrid1.Cells[1,6]:=IntToStr(d);    //помечаю стартовую ячейку    { for i:=StringGrid1.Cells[i-1,j-1] to StringGrid1.Cells[i+1,j+1] do     if StringGrid1.Cells[i,j]=d then     continue;        }       end;   end.