CLARO Q SI. CUANDO TERMINE EL JUEGUITO LO MANDO COMPLETO PARA Q SE ENTIENDA MEJOR.
Código Delphi
[-]
void TForm1::calculo_grupo()
if (X+1<=10)
if (matriz_color->Cells[X][Y]==matriz_color->Cells[X+1][Y])
}
if (repetido==false)
}
if (X-1>=0)
if (matriz_color->Cells[X][Y]==matriz_color->Cells[X-1][Y])
}
if (repetido==false)
}
if (Y+1<=10)
if (matriz_color->Cells[X][Y]==matriz_color->Cells[X][Y+1])
}
if (repetido==false)
}
if (Y-1>=0)
if (matriz_color->Cells[X][Y]==matriz_color->Cells[X][Y-1])
}
if (repetido==false)
}
if (cant_vecinos>0 && cant_vecinos>vecinos_examinados)
}