Hola amigos,
Estoy trabajando con Delphi XE8 desarrollando un programa de I Ching y tengo el siguiente error: "E2026 Constant expression expected";
Se produce al declarar la constante de array
Trigramas2 usando el método 1.
Disculpadme por favor, por lo que seguramente es muy básico... ¿Es posible declarar un array de constantes ya predefinidos como he intentado con el método 1?
Código:
Type
TYao = (Yin, Yang, YinMutable, YangMutable);
TAlmacenTrigrama = Array [1 .. 3] of TYao;
Const
Kan: AlmacenTrigrama = (Yin, Yang, Yin);
Kun: AlmacenTrigrama = (Yin, Yin, Yin);
Zhen: AlmacenTrigrama = (Yang, Yin, Yin);
Xun: AlmacenTrigrama = (Yin, Yang, Yang);
Qian: AlmacenTrigrama = (Yang, Yang, Yang);
Dui: AlmacenTrigrama = (Yang, Yang, Yin);
Gen: AlmacenTrigrama = (Yin, Yin, Yang);
Li: AlmacenTrigrama = (Yang, Yang, Yang);
// METODO 1 ---- ERROR
Trigramas2: array [1 .. 8] of AlmacenTrigrama = (Kan,Kun,Zhen,Xun,Qian,Dui,Gen,Li);
// METODO 2 ---- OK
CCodTrigramas: array [1 .. 8] of AlmacenTrigrama =
((Yin, Yang, Yin),
(Yin, Yin, Yin),
(Yang, Yin, Yin),
(Yin, Yang, Yang),
(Yang, Yang, Yang),
(Yang, Yang, Yin),
(Yin, Yin, Yang),
(Yang, Yin, Yang));