Создание игры "Крестики-нолики"

[Cubar]

Здравствуйте!
Подскажите пожалуйста, как сделать игру "Крестики-нолики" на Borland Delphi 7.0.
Никак не получается.
Поле игры должно быть размером "5*5".

[Tayfun]

У меня есть крестики-нолики... 3 варианта игры...
На поле 3*3, 10*10 и 24*16 кажеться, точно не помню...
Бывают глюки иногда, а так работает в принципе вполне прилично, можете сделать по аналогии...
KrestikiNoliki.rar

[Cubar]

Спасибо большое пользователю Tayfun (я ему поставил положительный отзыв). Я понимаю, что программа, написанная на Pascal мало чем отличается от программы, написанной на Delphi.
Извините меня пожалуйста, я ошибся с языком программирования. Может у кого-нибудь есть готовая программа, написанная на Borland Delphi 7.0 (но только размер поля 5*5).

[Карась]

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

Спасибо большое пользователю Tayfun (я ему поставил положительный отзыв). Я понимаю, что программа, написанная на Pascal мало чем отличается от программы, написанной на Delphi.
Извините меня пожалуйста, я ошибся с языком программирования. Может у кого-нибудь есть готовая программа, написанная на Borland Delphi 7.0 (но только размер поля 5*5).

Проще некуда. (если не писать робота ответа)
рисуешь поле. Задаешь массив. Клик по полю, ставим крестик.
Наипростейший ответ, смотрим массив и тыкаем ноль в свободное поле.

[Tayfun]

Я понимаю, что программа, написанная на Pascal мало чем отличается от программы, написанной на Delphi.

Ой... ППЦ, извини... Показалось что там не Borland Delphi 7.0, а Borland Pascal 7.0

[Cubar]

Ну я попробую разобраться и сделать программу.
О результатах сообщу.

[Cubar]

Ребят.
Никак не получается сделать.
Помогите пожалуйста.
На игровом поле должно быть 9 кнопок (при нажатии на кнопку появляется "X", далее комп ставит "O".)

[Cubar]

Помогите кто-нибудь хотя бы составить примерный алгоритм выбора компьютером нолика написать код этого условия выбора на Delphi.

[Карась]

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

Помогите кто-нибудь хотя бы составить примерный алгоритм выбора компьютером нолика написать код этого условия выбора на Delphi.

Какой ещё алгоритм для "простых" крестиков ноликов?!?
В лоб....
В событие каждой кнопке пишешь(меняя индексы конечно):

procedure TForm1.B11Click(Sender: TObject);
begin
If (B11.Caption = '0') or (B11.Caption = 'X') Then
Else
  Begin
    B11.Caption := 'X';
    Pole[1,1] := 'X';
    Otvet; // вызов процедуры ответного хода и проверки на выйгрышь.
  End;
end;

Осталось только написать процедуру Otvet.

[Cubar]

Спасибо большое всем, кто откликнулся помочь мне. Особая благодарность пользователю "Карась".
Программу я сделал.