Морской бой в Delphi, не могу понять где ошибся

[Александир1]

Я новичок, так что возможно упустил что то элементарное, если несложно посмотрите пожалуйста. Ошибку не выбивает, просто не работает процедура.
Суть процедуры: при наведении курсора на одну из клеточек поля, компьютер должен прорисовать корабль в этом месте желтым цветом. Вначале идет проверка заняты те клеточки или нет, если нет, этим клеткам присваивается значение 0, и и эти клетки должны прорисоваться желтым. но ничего не происходит, заранее спасибо за помощь, если нужен весь код -- напишите.
procedure TForm1.podbitva(Sender: TObject; Shift: TShiftState; X,Y: Integer);

procedure TForm1.podbitva(Sender: TObject; Shift: TShiftState; X,Y: Integer);
 begin
 image1.Canvas.Brush.Color:=clWhite;
 dy:=(Y div 30)+1;
 dx:=(X div 30)+1;
For i:=1 to 10 do
 for j:=1 to 10 do
   begin
    if (TP1[i,j]<>1) and (TP1[i,j]<>2) and (TP1[i,j]<>3) then
        begin
          TP1[i,j]:=-1;
          image1.Canvas.Rectangle(30*i-30,30*j-30,30*i,30*j);
        end;
   end;
begin
if RadioButton2.Checked then
 begin
 case RadioGroup1.ItemIndex  of
   0: begin
     if (TP1[dx,dy]<>1) and (TP1[dx+1,dy]<>1) and (TP1[dx+2,dy]<>1) and (TP1[dx+3,dy]<>1) then
     for i:=0 to 3 do
     TP1[dx+i,dy]:=0;
      end;
   1: begin
     if (TP1[dx,dy]<>1) and (TP1[dx+1,dy]<>1) and (TP1[dx+2,dy]<>1) then
     for i:=0 to 2 do
     TP1[dx+i,dy]:=0;
      end;
   2: begin
     if (TP1[dx,dy]<>1) and (TP1[dx+1,dy]<>1)  then
     for i:=0 to 1 do
     TP1[dx+i,dy]:=0;
      end;
   3: begin
     if (TP1[dx,dy]<>1) then
     for i:=0 to 0 do
     TP1[dx+i,dy]:=0;
      end;
   For i:=1 to 10 do
   for j:=1 to 10 do
   begin
     if (TP1[i,j]=0) then
       begin
       image1.Canvas.Brush.Color:=clyellow;
       image1.Canvas.Rectangle(30*i-30,30*j-30,30*(i),30*(j));
       end;
end;
if RadioButton1.Checked then
  begin
   case RadioGroup1.ItemIndex  of
   0: begin
    if (TP1[dx,dy]<>1) and (TP1[dx,dy+1]<>1) and (TP1[dx,dy+2]<>1) and (TP1[dx,dy+3]<>1) then
    for i:=0 to 3 do
    TP1[dx,dy+j]:=0;
      end;
  1: begin
    if (TP1[dx,dy]<>1) and (TP1[dx,dy+1]<>1) and (TP1[dx,dy+2]<>1) then
    for i:=0 to 2 do
    TP1[dx,dy+j]:=0;
     end;
  2: begin
    if (TP1[dx,dy]<>1) and (TP1[dx,dy+1]<>1)  then
    for j:=0 to 1 do
    TP1[dx,dy+j]:=0;
     end;
  3: begin
    if (TP1[dx,dy]<>1) then
    for j:=0 to 0 do
    TP1[dx,dy+j]:=0;
     end;
  end;
For i:=1 to 10 do
for j:=1 to 10 do
           begin
           if (TP1[i,j]=0) then
             begin
             image1.Canvas.Brush.Color:=clyellow;
             image1.Canvas.Rectangle(30*i-30,30*j-30,30*i,30*j);
             end;
           end;
      end;
end;
end;
end.

[evg_m]

  for i:=0 to 3 do
    TP1[dx,dy+j]:=0;

[Александир1]

ошибку исправил, но все равно не прорисовывает, а насчет этой ошибки я лоханулся( копировал предыдущее и просто поправлял, да видимо не заметил

[Аватар]

Думаешь интересно кому-то глазами отлаживать? Запакуй проект без exe и вложением покажи его на форуме. Возможно кто-то и поищет за тебя ошибку ))

[evg_m]

ошибку исправил,

копировал предыдущее и просто поправлял,

во ВСЕХ местах куда копировал?

[Александир1]

вся программа во вложении, если конечно кому то не сложно. Перепроверил все, там было два таких места, ошибку не вижу -- но я и не понимаю почти ничего в делфи, по верхам нахватался, так что может где то элементарное пропустил

[Serge_Bliznykov]

Сообщение от Александир1

но все равно не прорисовывает

прости, а как должна работать процедура
procedure podbitva()

если Вы в коде её НИГДЕ не вызываете?!
Нужно же прописать обращение к этой процедуре!
(правда, я не понимаю, кто, где и как к ней должен обратиться)

Сообщение от Александир1

при наведении курсора на одну из клеточек поля, компьютер должен прорисовать корабль в этом месте желтым цветом.

"Курсор" - это мышка имеется в виду?
Ну и что Вы сделали для того, чтобы это заработало?
Я не вижу у Вас в проекте обработку событий.
Оно же само не заработает.

ну и традиционный совет - отделяйте мухи от котлет!
В данном случае нужно отделить игровую логики (игровое поле) от интерфейса - это того, как это поле отображается.
Это и код упростит и, главное, сделает его надежнее и удобнее в разработке/отладке/модификации.


а ещё внизу есть раздел "Похожие темы"
Очень рекомендую.
Вот, например, в теме рабочий исходник (с) kommunist - http://programmersforum.ru/showpost....57&postcount=4

[Александир1]

все, ошибку исправил, спасибо большое за помощь всем
просто как я и говорил я профан в делфи и не указал событие для процедуры((