Discussion :

[Papy214]

Bonjour

Je suis un projet en XE7.

Je définis des types basés sur le type set.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
type
  TDroit = (AC, AF, AG, BJ, CD, CG, EF, JB, JMA, JN, JPG, MO, NA, PB, PM, PR, RG, SB, SFC, SP, TG, YL, YM);
  TDroits = set of TDroit;
 
const
  Droit01: TDroits = [TDroit.CG, TDroit.JB, TDroit.MO];
  Droit02: TDroits = [TDroit.BJ, TDroit.CD, TDroit.JN, TDroit.AC];
  Droit03: TDroits = Droit01 + Droit02;

Jusque Droit02 tout va bien !
Mais sur Droit03, Delphi remonte une erreur:

[dcc32 Erreur] UnitTypes.pas(70): E2026 Expression constante attendue

Il me semblait pourtant que l'on pouvait faire ce genre de chose vu que les 2 valeurs composant Droit03 sont des constantes.
.
Est-ce que ma mémoire défaille ou faut-il l'écrire d'une autre façon ?

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
const
  Droit01 = [TDroit.CG, TDroit.JB, TDroit.MO];
  Droit02 = [TDroit.BJ, TDroit.CD, TDroit.JN, TDroit.AC];
  Droit03 = Droit01 + Droit02;

[Andnotor]

Une constante typée ne peut être utilisée dans une autre déclaration de constante. C'est précisé dans l'aide :

Typed constants cannot occur in constant expressions.

ET il n'est pas nécessaire de préfixer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
const
  Droit01 = [CG, JB, MO];
  Droit02 = [BJ, CD, JN, AC];
  Droit03 = Droit01 +Droit02;

[Papy214]

Ak ok, merci ! Je n'avais pas vu cette particularité