Error declarando Array de constantes

[[geolife]]

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?

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

[ecfisa]

Hola.

Como indica el error, los elementos del arreglo constante "Trigrama2" deben ser expresiones constantes. Mientras que "Kan, Kun, ..., Li" no lo son, sino que son de tipo "TAlmacenTrigrama" que está declarado como un arreglo de tres elementos de tipo "TYao".

Saludos

[[Al González]]

Básicamente, es lo que dice ecfisa.

Y es que en Delphi existen dos grandes clases de constantes: las constantes verdaderas (true constants) y las contantes con tipo o tipificadas (typed constants). La declaración de una constante verdadera sirve para indicarle al compilador que asimile un nombre como "alias" de un valor literal. Así que en todos los lugares donde aparezca el alias utilizado, el compilador estará realmente copiando el valor literal. En cambio una constante tipificada es, en esencia, una variable global con un valor que no puede cambiar.

Código Delphi [-]
Const
  S1 = 'Foo';  // Constante verdadera
  S2 :String = 'Bar';  // Constante tipificada (con tipo explícito)

Para indicar el valor de otra constante (verdadera o no) o el valor predeterminado de un parámetro, el compilador de Delphi sólo admite valores literales o constantes verdaderas. Pero existe una salvedad: para indicar el valor de una constante con tipo explícito puntero, también se puede utilizar la dirección de memoria de algo que Delphi pueda ubicar en tiempo de compilación.

Lo anterior supone que si geolife desea evitar duplicidad de código (no tener que escribir más de una vez la conformación de los ocho vectores), podría declarar sus tipos y constantes así:

Código Delphi [-]
Type
  TYao = (Yin, Yang, YinMutable, YangMutable);
  PAlmacenTrigrama = ^TAlmacenTrigrama;  // Tipo puntero a TAlmacenTrigrama
  TAlmacenTrigrama = Array [1..3] Of TYao;

Const
  Kan :TAlmacenTrigrama = (Yin, Yang, Yin);
  Kun :TAlmacenTrigrama = (Yin, Yin, Yin);
  Zhen :TAlmacenTrigrama = (Yang, Yin, Yin);
  Xun :TAlmacenTrigrama = (Yin, Yang, Yang);
  Qian :TAlmacenTrigrama = (Yang, Yang, Yang);
  Dui :TAlmacenTrigrama = (Yang, Yang, Yin);
  Gen :TAlmacenTrigrama = (Yin, Yin, Yang);
  Li :TAlmacenTrigrama = (Yang, Yang, Yang);
  Trigramas :Array [1..8] Of PAlmacenTrigrama =
    (@Kan, @Kun, @Zhen, @Xun, @Qian, @Dui, @Gen, @Li);

Y obtendrá el mismo funcionamiento cuando pida algo como

Código Delphi [-]
Trigramas [1] [2]

(Recordar que la arroba, en Delphi, sirve para obtener la dirección de memoria —o puntero— de lo que esté expresado detrás de ese símbolo).

Saludos cordiales y feliz año 2017 a todos.

Al González.

[[AgustinOrtu]]

Muy creativo, no lo hubiera pensado

[Casimiro Notevi]

Empezado por Al González

Básicamente
Saludos cordiales y feliz año 2017 a todos.
Al González.

Otra clase magistral

[[geolife]]

Apreciados ecfisa, Al González

Muchísimas gracias, nunca deja uno de aprender algo sobre el lenguaje.

Ni se me había pasado por la cabeza declarar el tipo como un puntero y reverenciar el mismo directamente, lo que al final consigue lo que buscamos, evitar duplicar código innecesario y hacer más sencilla la referencia. Verdaderamente Delphi es un lenguaje lleno de grandes posibilidades y recursos y más acompañado de mentes talentosas como las vuestras. Me habéis alegrado el día!!

Quisiera saber si hay alguna dirección/forma dentro del club para realizar donaciones. En mi caso pocas veces intervengo para responder correos a otros usuarios y si en cambio para preguntar, y donde tengo que decirlo, siempre recibo gentilmente vuestra ayuda y conocimientos. Una manera de suplir esto es hacer de vez en cuando alguna donación que pueda servir para el mantenimiento de este espacio y que luego sea usada como la organización considere. Ya me diréis y gracias!!

Un abrazo!

Empezado por Al González

Básicamente, es lo que dice ecfisa.

Y es que en Delphi existen dos grandes clases de constantes: las constantes verdaderas (true constants) y las contantes con tipo o tipificadas (typed constants). La declaración de una constante verdadera sirve para indicarle al compilador que asimile un nombre como "alias" de un valor literal. Así que en todos los lugares donde aparezca el alias utilizado, el compilador estará realmente copiando el valor literal. En cambio una constante tipificada es, en esencia, una variable global con un valor que no puede cambiar.

Código Delphi [-]
Const
  S1 = 'Foo';  // Constante verdadera
  S2 :String = 'Bar';  // Constante tipificada (con tipo explícito)

Para indicar el valor de otra constante (verdadera o no) o el valor predeterminado de un parámetro, el compilador de Delphi sólo admite valores literales o constantes verdaderas. Pero existe una salvedad: para indicar el valor de una constante con tipo explícito puntero, también se puede utilizar la dirección de memoria de algo que Delphi pueda ubicar en tiempo de compilación.

Lo anterior supone que si geolife desea evitar duplicidad de código (no tener que escribir más de una vez la conformación de los ocho vectores), podría declarar sus tipos y constantes así:

Código Delphi [-]
Type
  TYao = (Yin, Yang, YinMutable, YangMutable);
  PAlmacenTrigrama = ^TAlmacenTrigrama;  // Tipo puntero a TAlmacenTrigrama
  TAlmacenTrigrama = Array [1..3] Of TYao;

Const
  Kan :TAlmacenTrigrama = (Yin, Yang, Yin);
  Kun :TAlmacenTrigrama = (Yin, Yin, Yin);
  Zhen :TAlmacenTrigrama = (Yang, Yin, Yin);
  Xun :TAlmacenTrigrama = (Yin, Yang, Yang);
  Qian :TAlmacenTrigrama = (Yang, Yang, Yang);
  Dui :TAlmacenTrigrama = (Yang, Yang, Yin);
  Gen :TAlmacenTrigrama = (Yin, Yin, Yang);
  Li :TAlmacenTrigrama = (Yang, Yang, Yang);
  Trigramas :Array [1..8] Of PAlmacenTrigrama =
    (@Kan, @Kun, @Zhen, @Xun, @Qian, @Dui, @Gen, @Li);

Y obtendrá el mismo funcionamiento cuando pida algo como

Código Delphi [-]
Trigramas [1] [2]

(Recordar que la arroba, en Delphi, sirve para obtener la dirección de memoria —o puntero— de lo que esté expresado detrás de ese símbolo).

Saludos cordiales y feliz año 2017 a todos.

Al González.

[[Al González]]

Empezado por geolife

Quisiera saber si hay alguna dirección/forma dentro del club para realizar donaciones. En mi caso pocas veces intervengo para responder correos a otros usuarios y si en cambio para preguntar, y donde tengo que decirlo, siempre recibo gentilmente vuestra ayuda y conocimientos. Una manera de suplir esto es hacer de vez en cuando alguna donación [...]

Qué bueno que lo mencionas, geolife, porque estoy seguro de que entonces te interesará esto: http://www.clubdelphi.com/foros/showthread.php?t=91282 (leer los tres primeros mensajes del hilo).

Y adicionalmente, para impulsar la causa, puedes hacer o conseguir algunos retweets de esto.

Apoyar a los colegas que más ayudan en el Club, como es ecfisa, es apoyar al club mismo. Si cumplimos esa meta, significa que podremos ayudar a otros más que también lo merecen y al foro mismo para su mantenimiento.

Un cordial saludo.

Al.

[[geolife]]

Apreciado Al,

Claro, me parece muy buena idea . Voy a ponerme en contacto con newtron para que me facilite el medio de poder llevar a cabo esta acción. Es importante que todos pongamos nuestro pequeño grano de arena.

Gracias otra vez

Empezado por Al González

Qué bueno que lo mencionas, geolife, porque estoy seguro de que entonces te interesará esto: http://www.clubdelphi.com/foros/showthread.php?t=91282 (leer los tres primeros mensajes del hilo).

Y adicionalmente, para impulsar la causa, puedes hacer o conseguir algunos retweets de esto.

Apoyar a los colegas que más ayudan en el Club, como es ecfisa, es apoyar al club mismo. Si cumplimos esa meta, significa que podremos ayudar a otros más que también lo merecen y al foro mismo para su mantenimiento.

Un cordial saludo.

Al.