Discussion :

[Papy214]

Bonjour

Je suis un projet VCL et je trouve un truc bizarre.

Code :

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

1
2
3
 
const
  CMAX_BITMAP_WIDTH = 1024 * 32;  // 32768

Quand je passe mon curseur souris au-dessus du nom de la constante, Delphi annonce qu'il prend ça pour un SmallInt.
Pourtant, le SmallInt va jusqu'à 32767

Type entier d'étendue [-32768; 32767].

Smallint est un entier signé sur 2 octets.

Par contre si je fais

Code :

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

CMAX_BITMAP_WIDTH = 32768;

Il prend bien ça pour un Word

[Charly910]

Bonjour,

Sous Community 10.3.1 cela le fait aussi. C'est un bug, car a priori, il ne base sur le 1er nombre (1024)

CMAX_BITMAP_WIDTH = 102400 * 33; renvoie un integer (mais calculé comme 3379200 dans la bulle)

Je ne sais pas si cela impacte le programme ?

A+
Charly

[pprem]

L'EDI ne fait pas le calcul, c'est le compilateur qui s'en occupe. Il ne faut donc pas tenir compte du type des constantes en saisie, de toute façon elles seront remplacées par leur valeur lors de la compilation et c'est là qu'il y aura contrôle d'intégrité.

[Papy214]

et le fait qu'une constante typée ne soit plus considérée comme une constante, c'est aussi l'EDI qui est cause ?

Code :

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

1
2
3
4
5
6
 
const
  CMAX_BITMAP_WIDTH: Integer = 32768;
 
type
  TArrayOfPixel = array [0 .. CMAX_BITMAP_WIDTH - 1] of TRGBTriple;

Delphi pointe sur la déclaration du tableau:

[dcc32 Erreur] uDGBitmap.pas(13): E2026 Expression constante attendue

[pprem]

et le fait qu'une constante typée ne soit plus considérée comme une constante, c'est aussi l'EDI qui est cause ?

Non, ça c'est une fonctionnalité.

Typed constants cannot occur in constant expressions.

http://docwiki.embarcadero.com/RADSt...ared_Constants

[Papy214]

Je vais me coucher moins bête ce soir.

Du coup, si j'écris comme ça, ça fonctionne :

Code :

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

1
2
3
4
5
6
 
const
  CMAX_BITMAP_WIDTH = Integer(32768); //1024 * 32;  // 32768
 
type
  TArrayOfPixel = array [0 .. CMAX_BITMAP_WIDTH - 1] of TRGBTriple;

Et le survol à la souris renvoie bien le bon type.

Merci.