Código Delphi [-]type Tcolor1 =(ROJO,AMARILLO,AZUL,VERDE); Tcolor2 =ROJO..AMARILLO; Tcolor3 = AZUL..VERDE ;
type Tcolor1 =(ROJO,AMARILLO,AZUL,VERDE); Tcolor2 =ROJO..AMARILLO; Tcolor3 = AZUL..VERDE ;