Delphi. Ход конем

[ADK01]

Здравствуйте!

Есть задача по делфи:

Шахматную доску будем представлять символьной матрицей размера 8x8. Даны натуральные числа n, причём 1<=n<=8 и m, причём 1<=m<=8. Эти числа номера вертикали и горизонтали, определяющие местоположения коня. Соответствующий элемент матрицы надо положить равным символу К. Поля находящиеся под угрозой коня, надо положить равными символу *, а остальные - символу 0.

Так как новичок в делфи, со StringGrid сталкиваюсь первый раз. Подскажите, пожалуйста, как мне привязать поля Edit к полю StringGrid, чтобы при вводе координат, на поле появлялся, необходимый по условию, символ К.

Буду благодарен за любую помощь!

На форме нарисовал следующее:

[Stilet]

var i,j:integer;
begin
  with StringGrid1 do begin
    for i:=0 to RowCount-1 do begin
      for j:=0 to ColCount-1 do begin
        Cells[i,j]:='';
      end;
    end;
    i:=Col;j:=Row;
    Cells[i,j]:='K';
     Cells[i,j+1]:='*';Cells[i,j+2]:='*';Cells[i+1,j+2]:='*';
     Cells[i,j+1]:='*';Cells[i,j+2]:='*';Cells[i-1,j+2]:='*';
     Cells[i,j-1]:='*';Cells[i,j-2]:='*';Cells[i+1,j-2]:='*';
     Cells[i,j-1]:='*';Cells[i,j-2]:='*';Cells[i-1,j-2]:='*';

     Cells[i+1,j]:='*';Cells[i+2,j]:='*';Cells[i+2,j+1]:='*';
     Cells[i+1,j]:='*';Cells[i+2,j]:='*';Cells[i+2,j-1]:='*';
     Cells[i-1,j]:='*';Cells[i-2,j]:='*';Cells[i-2,j+1]:='*';
     Cells[i-1,j]:='*';Cells[i-2,j]:='*';Cells[i-2,j-1]:='*';

  end;
end;

i и j пусть принимают координаты коняки.
Идея понятна?

[ADK01]

Спасибо за ответ!

Т.е. получается координаты m и n будут равняться i и j? А не нужно ли здесь задавать массив mas:=array [1..8,1..8] of char для i и j? Или нужно сделать массив с двумя значениями m и n, которые и будут i и j, и прикрутить его к Edit'ам?

Может я не правильно размышляю - с массивами еще не очень, но пытаюсь понять.

Вот попробовал написать код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  sg:array[1..8,1..8] of byte;
begin
  i:=StrToInt(Edit1.Text);
  j:=StrToInt(Edit2.Text);
    for i:=1 to 8 do begin
      for j:=1 to 8 do begin
        sg[i,j]:=StrToInt(StringGrid1.Cells[i,j])
      end;
    end;

    with StringGrid1 do begin
      for i:=1 to 8 do begin
      for j:=1 to 8 do begin
        Cells[i,j]:='0';
      end;
    end;
    i:=Col;j:=Row;
    StringGrid1.Cells[i,j]:='K';
     Cells[i+1,j+2]:='*';
     Cells[i+2,j+1]:='*';
     Cells[i+2,j-1]:='*';
     Cells[i+1,j-2]:='*';
     Cells[i-1,j-2]:='*';
     Cells[i-1,j-1]:='*';
     Cells[i-2,j+1]:='*';
     Cells[i-1,j+2]:='*';

  end;
end;

end.

Но при нажатии на кнопку выдает ошибку Project raised exeption class EConvertError with message "" is not a valid integer value.

Подскажите, в чем проблема.

[BDA]

Зачем Вам массив?

for i:=1 to 8 do begin 
      for j:=1 to 8 do begin 
        sg[i,j]:=StrToInt(StringGrid1.Cells[i,j]) 
      end; 
    end;

Выбросьте

Ошибка возникает, т.к. в стринггриде все клетки пустые, и StrToInt не может выполниться.
Кстати, в сами едиты тоже не забудьте вписать числа.

i:=Col;j:=Row;

Тоже выбросьте, т.к. берете значения из едитов.

[ADK01]

Спасибо большое!

Ошибка действительно больше не появляется. Получившийся код

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;

begin
  i:=StrToInt(Edit1.Text);
  j:=StrToInt(Edit2.Text);

    with StringGrid1 do begin
      for i:=0 to 8 do begin
      for j:=0 to 8 do begin
        Cells[i,j]:='0';
      end;
    end;

    StringGrid1.Cells[i,j]:='K';
     Cells[i+1,j+2]:='*';
     Cells[i+2,j+1]:='*';
     Cells[i+2,j-1]:='*';
     Cells[i+1,j-2]:='*';
     Cells[i-1,j-2]:='*';
     Cells[i-1,j-1]:='*';
     Cells[i-2,j+1]:='*';
     Cells[i-1,j+2]:='*';

  end;
end;

end.

Правда с любыми значениями i и j теперь все поле просто заполняется нулями.

[BDA]

 with StringGrid1 do begin
    for i:=0 to 7 do
        for j:=0 to 7 do
            Cells[i,j]:='0';

     i:=StrToInt(Edit1.Text);
     j:=StrToInt(Edit2.Text);

     Cells[i,j]:='K';
     Cells[i+1,j+2]:='*';
     Cells[i+2,j+1]:='*';
     Cells[i+2,j-1]:='*';
     Cells[i+1,j-2]:='*';
     Cells[i-1,j-2]:='*';
     Cells[i-1,j-1]:='*';
     Cells[i-2,j+1]:='*';
     Cells[i-1,j+2]:='*';
  end;

Проглядел этот момент. У Вас получалось, что значения i и j инициализируются эдитами, а потом эти переменные используются для цикла.

[цитата]Эхх, проиграл целую минуту BDA)))[/цитата]
Лол =)

[GetMax]

i:=StrToInt(Edit1.Text);
  j:=StrToInt(Edit2.Text);

У вас значения этих переменных потом "затираются" циклами. Либо используйте другие переменные для хранения, либо меняйте местами строки кода.

Эхх, проиграл целую минуту BDA)))

[ADK01]

Спасибо всем большое!

[Stilet]

теперь все поле просто заполняется нулями.

Смотри мой пример: У меня рисование происходит только во втором цикле. Соответственно выборка данных из Эдитов должна стоять вместо i:=Col;j:=Row; а не в самом начале.

[ADK01]

С рисованием символов "К", "*", "0" разобрался. Но возникло две проблемы, которые я не смог решить. Не могу понять как их решить.

1. Если i или j такое, что i-1, j-1, i-2, j-2 будут отрицательными, то в итоге будет ошибка и решаться не будет.

2. Координаты по j идут сверху вниз, а надо снизу вверх. Т.е. если мы пишем j=2, то это будет не вторая клетка снизу, а седьмая (или вторая сверху).

Помогите, пожалуйста, разобраться.