8 Shape cambiando de color en secuencia.

[[egostar]]

Empezado por JoseFco

Ok.
Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0); aqui estan los colores declarados para los 8 Shape. 4 verde y 4 rojos.Estos no cambiaran nunca.la idea es poder declarar los Shape y el color se los da uno cuando llegue el momento. Shape7 puede ser rojo o verde, eso depende de lo que uno quiera.
La pregunta es esta. En vez de declarar los colores, se pueden declarar las pocisiones de los Shape?


Un Saludo.

Si, puedes hacer esto :

Código Delphi [-]
Var
  Arreglo: Array [0..7] of Integer;

//Y donde quieras asignar el valor :

Arreglo[0] := 1;
Arreglo[1] := 1;
Arreglo[2] := 1;
Arreglo[3] := 1;
Arreglo[4] := 0;
Arreglo[5] := 0;
Arreglo[6] := 0;
Arreglo[7] := 0;

Salud OS