Comment déclarer et initialiser des tableaux constants dans Delphi

Dans Delphi, le langage de programmation Web polyvalent, tableaux permettre à 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 différencier.

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, tout en déclarant 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, où la déclaration CursorMode [false] = crHourGlass et CursorMode = crSQLWait. Les constantes "cr *" peuvent être utilisées pour changer le curseur d'écran actuel.
  • instagram viewer
  • Articles définit un tableau de trois TShopItem enregistrements.
type
TShopItem = record
Nom: chaîne;
Prix: monnaie;
fin;
const
Jours: tableau [0..6] de chaîne =
(
'Sun', 'Mon', 'Tue', 'Wed',
«Jeu», «Ven», «Sam»
) ;
CursorMode: tableau [booléen] de TCursor =
(
crHourGlass, crSQLWait
) ;
Items: tableau [1..3] de TShopItem =
(
(Nom: «Horloge»; Prix: 20.99),
(Nom: «crayon»; Prix: 15,75),
(Nom: «Conseil»; 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

instagram story viewer