Как объявить и инициализировать константные массивы в Delphi

В Delphi, универсальном языке веб-программирования, массивы позволить разработчику ссылаться на серию переменных с одним и тем же именем и использовать число - индекс - для их разделения.

В большинстве сценариев вы объявляете массив как переменную, что позволяет изменять элементы массива во время выполнения.

Однако иногда вам необходимо объявить постоянный массив - массив только для чтения. Вы не можете изменить значение константы или переменной только для чтения. Поэтому при объявлении постоянный массивВы также должны инициализировать его.

Этот пример кода объявляет и инициализирует три константных массива с именем дней, CursorMode, и Предметы.

• дней массив строк из шести элементов Days [1] возвращает строку Mon.
• CursorMode является массив из двух элементов, посредством чего объявление CursorMode [false] = crHourGlass и CursorMode = crSQLWait. Константы "cr *" могут быть использованы для изменения текущего экранного курсора.
• Предметы определяет массив из трех TShopItem учет.

тип
TShopItem = запись
Имя: строка;
Цена: валюта;
конец;
Const
Дни: массив [0..6] строки =
(
«Солнце», «Пн», «Вт», «Ср»,
'Чт', 'пт', 'сб'
) ;
CursorMode: массив [логическое значение] TCursor =
(
crHourGlass, crSQLWait
) ;
Элементы: массив [1..3] из TShopItem =
(
(Название: «Часы»; Цена: 20,99),
(Имя: «Карандаш»; Цена: 15,75),
(Название: «Доска»; Цена: 42,96)
); 

Попытка присвоить значение для элемента в константном массиве приводит к ошибке «Левая сторона не может быть назначена» во время компиляции. Например, следующий код не выполняется успешно:

 Items [1] .Name: = 'Watch'; //не будет компилироваться