Процесс реализации хода шашки в Делфи

[San34]

Не знаю как Написать алгоритм хождения шашек.

вот код:

procedure TForm6.FormCreate(Sender: TObject);
var i,j:integer;
begin
  Path:=ExtractFileDir(Application.ExeName);

  Buf:=TBitmap.Create;
  Buf.Width:=600;
  Buf.Height:=600;

  Pole:=TBitmap.Create;
  Pole.LoadFromFile(path+'\img\2.bmp');

  for i:=0 to 2 do
  begin
  Img[i]:=TBitmap.Create;
  Img[i].Transparent:=true;
  Img[i].LoadFromFile(path+'\img\'+inttostr(i)+'.bmp');
  end;
end;

procedure TForm6.Timer1Timer(Sender: TObject);
var i,j:integer;
begin
  //pole
  buf.Canvas.StretchDraw(Rect(0,0,600,600),Pole);
  //shahki
  buf.Canvas.Draw(35,35,Img[0]);
    buf.Canvas.Draw(105,35,Img[0]);
    buf.Canvas.Draw(175,35,Img[0]);
    buf.Canvas.Draw(245,35,Img[0]);
    buf.Canvas.Draw(35,105,Img[0]);
    buf.Canvas.Draw(105,105,Img[0]);
    buf.Canvas.Draw(175,105,Img[0]);
    buf.Canvas.Draw(35,175,Img[0]);
    buf.Canvas.Draw(105,175,Img[0]);
    buf.Canvas.Draw(35,245,Img[0]);

    buf.Canvas.Draw(310,515,Img[1]);
    buf.Canvas.Draw(380,515,Img[1]);
    buf.Canvas.Draw(445,515,Img[1]);
    buf.Canvas.Draw(515,515,Img[1]);
    buf.Canvas.Draw(380,445,Img[1]);
    buf.Canvas.Draw(445,445,Img[1]);
    buf.Canvas.Draw(515,445,Img[1]);
    buf.Canvas.Draw(515,375,Img[1]);
    buf.Canvas.Draw(445,375,Img[1]);
    buf.Canvas.Draw(515,305,Img[1]);






   form6.Canvas.Draw(0,0,Buf);
   end;
   procedure Rasstanovka;
   var i,j:integer;
   begin
   for i:=0 to 7 do
   for j:=0 to 7 do
   begin
    map[i,j]:=false;
    Shashki[i,j]:=1;
     Shashki[2,3]:=1;
   end;

   for i:=0 to 7 do
   for j:=0 to 1 do
   begin
    if (j=0) and (1 mod 2<>0) then Shashki[i,j]:=1;
   end;

   end;

procedure TForm6.N3Click(Sender: TObject);
begin
 Form6.Visible:= false;
 Form2.Show;
end;

procedure TForm6.N4Click(Sender: TObject);
begin
  form6.Close;
end;

procedure TForm6.N5Click(Sender: TObject);
begin

  form3.Show;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Stilet]

Ты сможешь описать и реализовать (ну хотя бы описать) класс "Шашка", в который включить следующие методы и свойства:
1) Координаты
2) Цвет
3) Метод проверки на удар по диагонали
4) Метод смены координат по диагонали