Constantes typées Delphi dans les instructions de cas

Question

Quelle est la manière la plus élégante (ou la moins laide) d'utiliser des constantes typées dans une instruction case dans Delphi?

C'est, supposons que pour cette question que vous devez déclarer une constante typée comme dans

const 
    MY_CONST: cardinal = $12345678; 
    ... 

le compilateur Delphi n'acceptera

case MyExpression of 
    MY_CONST: { Do Something }; 
    ... 
end; 

mais vous devez écrire

case MyExpression of 
    $12345678: { Do Something }; 
    ... 
end; 

qui est sujette aux erreurs, difficile à mettre à jour et pas élégante.

Y a-t-il une astuce que vous pouvez utiliser pour que le compilateur insère la valeur de la constante (de préférence en vérifiant la valeur de const dans le code source, mais peut-être en recherchant la valeur)? Nous supposons ici que vous ne modifierez pas la valeur de la "constante" au moment de l'exécution.

Answer 1

Selon pourquoi vous avez besoin la constante à taper, vous pouvez essayer quelque chose comme

const 
    MY_REAL_CONST = Cardinal($12345678); 
    MY_CONST: Cardinal = MY_REAL_CONST; 

case MyExpression of 
    MY_REAL_CONST: { Do Something }; 
    ... 
end; 

Answer 2

Si vous ne modifiez pas la valeur de la constante, vous n'avez pas besoin d'une constante typée. Le compilateur peut prendre le nombre que vous déclarez et le placer correctement dans la variable ou le paramètre auquel vous l'affectez. Les constantes typées sont en quelque sorte un hack et elles sont implémentées en tant que variables, de sorte que le compilateur ne peut pas les utiliser comme des constantes dont la valeur doit être corrigée au moment de la compilation.

Answer 3

Les constantes typées ne peuvent pas être utilisées dans les instructions case, car une constante typée est en fait une variable statique (et affectable ...), et ne peut donc pas être utilisée dans une instruction case, qui attend des constantes.