Ver Mensaje Individual
  #1  
Antiguo 08-01-2017
Avatar de geolife
[geolife] geolife is offline
Miembro Premium
 
Registrado: nov 2006
Ubicación: Barcelona
Posts: 87
Reputación: 18
geolife Va por buen camino
Error declarando Array de constantes

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));

Última edición por geolife fecha: 08-01-2017 a las 14:01:17.
Responder Con Cita