Крестики/нолики,добавление процедур и функций

[Plotonov]

Всем добрый вечер..помогите пожалуйста сделать мини-курсач..До этого мы делали его с Дядей моим,а он уехал в другой город в командировку!


Я на стадии окончания,осталось сделать:
1)Как сделать что бы КОМП ходил первым?
2)Как сделать что бы игра сделана была на 2х человек? т.е. игрок против друга


Ребят,любая помощь натолкнувшая на мысль..
Спс за внимание..жду помощи

PS: Не надо переделывать всю программу(она простенькая и не надо заморачиватся)нужно вот только это дописать...отблагодарить всегда смогу

[Plotonov]

мучает такой вопрос..можно же сделать что бы комп ходил первым?или нужно переделывать программу..помогите

[Asinkrit]

Сделать можно все что угодно,
Жестокий код, на проверку победы больше 1000 строк кода, хотя можно было обойтись и 30-ю строками.
Что делает функция Final; непонятно, но в случае Form1.pole.Cells[j,i]<>'' окажется что она подвесит программу выдав ошибку Stack Overflow; что и происходит, после старта новой игры.
Я бы помог, но это не код, а неосмысленная каша. Если детальнее, то стучитесь в скайп, за монету помогу..

[Plotonov]

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

про переделку программы даж слушать не хочу