Крестики-нолики

[dima2308]

Имеется работающий код для игры в крестики-нолики.
В коде игра идет в режиме пользователь-компьютер, а требуется пользователь-пользователь.
Так как я в Dephi совсем не разбираюсь, прошу помощи.
Где и как надо изменить код?

[Sibedir]

Вау. Вот это липнина. Я даже не понял как сообщение о ничъей вывести. Ну да бог с ним. Его и в исходном варианте нет.

...

var
  Current: TImage;

procedure Tmain_form.FormCreate(Sender: TObject);
begin
  Current := krestik_i;
end;

procedure{ Щелчок по клетке }Tmain_form.loop_click(Sender: TObject);
var
index, ar_pos, tk: integer;
c1, c2: integer;
ch: Char;
begin
   index := tImage(sender).Tag;
   if read_pos(index) <> '0' then exit;
   if Current = krestik_i then ch := '1' else ch := '2';
   case index of
   1: begin cell_array[1][1] := ch; cell_array[4][1] := ch; cell_array[7][1] := ch; end;
   2: begin cell_array[1][2] := ch; cell_array[5][1] := ch; end;
   3: begin cell_array[1][3] := ch; cell_array[6][1] := ch; cell_array[8][1] := ch; end;
   4: begin cell_array[2][1] := ch; cell_array[4][2] := ch; end;
   5: begin cell_array[2][2] := ch; cell_array[5][2] := ch; cell_array[7][2] := ch; cell_array[8][2] := ch; end;
   6: begin cell_array[2][3] := ch; cell_array[6][2] := ch; end;
   7: begin cell_array[3][1] := ch; cell_array[4][3] := ch; cell_array[8][3] := ch; end;
   8: begin cell_array[3][2] := ch; cell_array[5][3] := ch; end;
   9: begin cell_array[3][3] := ch; cell_array[6][3] := ch; cell_array[7][3] := ch; end;
   end;
   tImage(sender).Picture := Current.Picture;
   for c1 := 1 to 8 do
   begin
      tk := 0;
      for c2 := 1 to 3 do
      if cell_array[c1][c2] = ch then inc(tk);
      if tk = 3 then begin
        if Current = krestik_i then win(1) else win(2);
        exit;
      end;
   end;

   if Current = krestik_i then Current := nolik_i
   else Current := krestik_i;
end;

procedure{ WIN }Tmain_form.win(index: integer);
begin
   case index of
   0: showMessage('Ничья!');
   1: showMessage('[X] WIN!!!');
   2: ShowMessage('[O] WIN!!!');
   end;
   reset;
end;

[Arigato]

Сообщение от dima2308

требуется пользователь-пользователь.

По сети или просто поочередно?

[dima2308]

Просто поочередно.

Изменил код, запускается, но при щелчке по клетке вылетает ошибка:

[Sibedir]

А чему Current равен?
Что, копипас и готово? Немного-то посмотри код.

[dima2308]

Говорю же, с Delphi первый раз работаю...
Так ведь в процедуре выше Current присваивается значение krestik_i.
Или это не то?

[Аватар]

Не правильно изменил. Резкость наведи на код в #2

[Sibedir]

Сообщение от dima2308

Так ведь в процедуре выше Current присваивается значение krestik_i.

А она (эта процедура) у тебя выполняется?

Даю жирную наводку: Это новый обработчик какого-то события. Его у тебя не было.

[dima2308]

Процедуру я ещё в самом начале объявил:
procedure FormCreate(Sender: TObject);

[Sibedir]

Сообщение от dima2308

Процедуру я ещё в самом начале объявил:
procedure FormCreate(Sender: TObject);

А назначил?