Discussion :

[castorcharly]

Bonjour,

J'utilise des Constantes typées, pour effectuer un certain nombre de contrôle,
par exemple

Code :

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

1
2
3
4
5
6
7
 
type
    TvalidChar = set of char;
 
Const
     kValidAlphaLow: TvalidChar = ['a'..'z'];
     kValidAlphaUpp: TvalidChar = ['A'..'Z'];

Là, tout va bien, mais je veux faire

Code :

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

1
2
 
kValidAlphaUppLow: TvalidChar = kValidAlphaUpp + kValidAlphaLow;

Ca ne passe pas, j'ai cherché d'autre solution, mais je ne vois pas comment faire ceci.
Avez vous une idée ?

[Ph. B.]

Bonjour,

L'aide de Delphi est claire sur ce sujet:

Les constantes typées ne peuvent intervenir dans des expressions constantes.

La solution :

Code :

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

1
2
3
4
5
6
7
8
type
  TvalidChar = set of char;
 
const
  kValidAlphaLow: TvalidChar = ['a'..'z'];
  kValidAlphaUpp: TvalidChar = ['A'..'Z'];
 
  kValidAlphaUppLow: TvalidChar = ['a'..'z'] + ['A'..'Z'];

--
Philippe

[ALWEBER]

La déclaration de type dans ce cas est superflue. L'exemple ci-dessous marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
const
  kValidAlphaLow = ['a'..'z'];
  kValidAlphaUpp = ['A'..'Z'];
  kValidAlphaUppLow = ['a'..'z'] + ['A'..'Z'];
...
 
procedure test (c1 : char) ;
begin
  if c1 in kValidAlphaUppLow then
    showMessage (c1+' OK') ;
end ;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  test ('c') ;
  test ('D') ;
  test ('é') ;
end;

[castorcharly]

Merci Alweber,

je suis un ane !
Pourquoi j'ai été m'embêter avec des constantes typées, alors que j'utilise habituellement des constantes simples !

La solution était donc :

Code :

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

1
2
3
4
 
     kValidAlphaLow = ['a'..'z'];
     kValidAlphaUpp = ['A'..'Z'];
     kValidAlphaUppLow = kValidAlphaUpp + kValidAlphaLow;

C'est le genre de blocage où tu démontes toute la voiture pour trouver une panne alors que c'est kle fusible qui a griller.