Discussion :

[Mitch52]

Bonjour,

J'ai un premier fichier où je stocke des constantes :

Code :

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

1
2
3
4
5
6
7
8
interface
 
   const CST_TOTO = 1; 
   const CST_TITI = 129;
 
implementation
 
end.

Dans le deuxième, j'utilise la constante de la façon suivante :

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
   CST_TOTO.ToString(); // Ne compile pas
   ShortInt(CST_TOTO).ToString(); // Compile
   CST_TITI.ToString(); // Compile
end;

La première ligne ne compile pas, tandis que les deux autres fonctionnes.

La méthode ToString() est déclarée dans les Helper stocké dans l'unité System.SysUtils.

Pourquoi le Helper ne fonctionne pas pour la 1ère ligne mais fonctionne pour les autres?

[Andnotor]

Quelle version de Delphi ? Les helper pour byte n'existait peut-être pas encore (mais CST_TITI ne devrait pas compiler non plus ).

Tu peux toujours forcer un type à la déclaration const CST_TOTO :shortint = 1;

[Paul TOTH]

je viens de tester sous Berlin Update 2 ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
{$APPTYPE CONSOLE}
uses
  System.SysUtils,
const
  TOTO = 1;
  TITI = 129;
  TUTU = $FFFFFF;
begin
  WriteLn(TOTO.ToString);
  WriteLn(TITI.ToString);
  WriteLn(TUTU.ToString);
end.

NB: dans SysUtils on a un TByteHelper, un TShortIntHelper etc...avec des ToString() qui se contentent d'appeler IntToStr(Self)

[Mitch52]

Paul TOTH

Effectivement, ton code fonctionne également chez moi. Mais dès lors que les constantes sont dans une autre unit, ça ne compile plus.

Code :

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

1
2
3
4
5
6
7
8
9
uses
  System.SysUtils,
  Unit1 in 'Unit1.pas';
 
begin
  WriteLn(TOTO.ToString);
  WriteLn(TITI.ToString);
  WriteLn(TUTU.ToString);
end.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
unit Unit1;
 
interface
 
const
  TOTO = 1;
  TITI = 129;
  TUTU = $FFFFFF;
 
implementation
 
end.

Andnotor

J'utilise Delphi XE6.
Oui, en spécifiant le type au niveau la constante, ça fonctionne... mais je me retrouve avec un autre problème tout aussi incompréhensible.
Dans mon projet j'ai une procédure avec un paramètre par défaut égal à une de mes constantes... et lorsque je spécifie le type de la constante, une nouvelle fois le projet ne compile plus :

Code :

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

const CST_TOTO : integer  = 1;

Code :

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

procedure test(i : integer = CST_TOTO);

Bon après en surchargeant la procédure et en spécifiant explicitement le type sur la constante, on contourne tous mes problèmes. Mais ça reste quand même très étrange.

[retwas]

J'ai remarqué le problème la semaine dernière sur mon Berlin Update 2.

Sur une unité avec seulement la constante :

Code :

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

1
2
3
4
5
6
unit Unit3;
 
interface
 
const
   abc = 1;

Et sur une deuxième pour afficher le résultat dans un TEdit :

Code :

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

1
2
3
4
procedure TForm2.FormShow(Sender: TObject);
begin
   Edit1.Text := abc.tostring;
end;

J'obtiens l'erreur [dcc32 Erreur] Unit2.pas(36): E2018 Type Record, Object ou Class requis, en revanche si la valeur de la constante est plus grande que 127 (type ShortInt) cela fonctionne, si la constante est locale à la fiche qui l'appelle aucun soucis.

J'ai ouvert un ticket sur le bug tracker Embarcadero : https://quality.embarcadero.com/browse/RSP-16798

C'est clairement un bug du compilateur, tu peux contourner le problème avec :

Code :

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

const abc = ShortInt(1);

C'est comme ci le type vu par le compilateur était autre chose que ShortInt mais quoi ..

[PPA94]

... mais je me retrouve avec un autre problème tout aussi incompréhensible.
Dans mon projet j'ai une procédure avec un paramètre par défaut égal à une de mes constantes... et lorsque je spécifie le type de la constante, une nouvelle fois le projet ne compile plus :

Code :

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

const CST_TOTO : integer  = 1;

Code :

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

procedure test(i : integer = CST_TOTO);

Bon après en surchargeant la procédure et en spécifiant explicitement le type sur la constante, on contourne tous mes problèmes. Mais ça reste quand même très étrange.

Bonjour,

C'est tout à fait normal, c'est la conséquence de l’aberration du concept de la syntaxe "constante typée affectable" : une constante typée génère une variable mémoire et non du code inline, donc CST_TOTO ne peut être utilisée comme constante après un signe "=" (d'ailleurs non plus par exemple dans ARRAY [0..CST_TOTO] OF ...) comme c'est le cas avec toute autre variable VAR.