Vale, no sabía qué era eso de "Ta te ti", hasta que he probado tu código (he tenido que diseñar enteramente el form
) y he visto que es lo que también se conoce como tres en raya
Sigo sin tener claro qué es lo que pedías, para usar este juego con una matriz yo habría hecho...
Código Delphi
[-]
const
simbolo_j1 = 'O';
simbolo_j2 = 'X';
var
tablero: array[1..3,1...3] of char;
procedure rellenar; begin
tablero[1,1]:='-';
tablero[1,2]:='-';
...
end;
procedure jugador1(fila, columna: byte);
begin
if tablero[fila, columna]<>'-' then tablero[fila, columna]:=simbolo_j1;
comprobar_ganador;
end;
procedure jugador2(fila, columna: byte);
begin
if tablero[fila, columna]<>'-' then tablero[fila, columna]:=simbolo_j2;
comprobar_ganador;
end;
y faltaría implementar la función comprobar_ganador para ver si después de cada turno alguien ha ganado
Claro que, cada uno tiene su estilo...
Saludos.