Comment déclarer et initialiser des tableaux constants dans Delphi

Dans Delphi, le langage de programmation Web polyvalent, les tableaux permettent à un développeur de se référer à une série de variables du même nom et d'utiliser un nombre - un index - pour les distinguer.

Dans la plupart des scénarios, vous déclarez un tableau en tant que variable, ce qui permet de modifier les éléments du tableau au moment de l'exécution.

Cependant, vous devez parfois déclarer un tableau constant, un tableau en lecture seule. Vous ne pouvez pas modifier la valeur d'une constante ou d'une variable en lecture seule. Par conséquent, lors de la déclaration d'un tableau constant, vous devez également l'initialiser.

Exemple de déclaration de trois tableaux constants

Cet exemple de code déclare et initialise trois tableaux constants, nommés Journées, CursorMode, et Articles.

• Journées est un tableau de chaînes de six éléments. Days [1] renvoie la chaîne Mon.
• CursorMode est un tableau de deux éléments, par lequel la déclaration CursorMode [false] = crHourGlass et CursorMode = crSQLWait. Les constantes "cr *" peuvent être utilisées pour changer le curseur d'écran actuel.
• Articles définit un tableau de trois enregistrements TShopItem.

type
   TShopItem = record
     Nom: chaîne;
     Prix: monnaie;
   fin;
const
   Jours: tableau [0… 6] de chaîne =
   (
     'Soleil', 'Lun', 'Mar', 'Mer',
     «Jeu», «ven», «sam»
   );
   CursorMode: tableau [booléen] de TCursor =
   (
     crHourGlass, crSQLWait
   );
   Éléments: tableau [1… 3] de TShopItem =
   (
     (Nom: 'Horloge'; Prix: 20,99),
     (Nom: 'Crayon'; Prix: 15,75),
     (Nom: 'Board'; Prix: 42,96)
   );

Essayer d'attribuer une valeur pour un élément dans un tableau constant soulève l'erreur de temps de compilation «Le côté gauche ne peut pas être affecté à». Par exemple, le code suivant ne s'exécute pas correctement:

 Objets [1] .Name: = 'Watch'; //ne compilera pas