Как да декларирате и инициализирате постоянни масиви в Delphi

В Delphi, универсалният език за уеб програмиране, масиви позволете на програмист да се позовава на поредица от променливи със същото име и да използва число - индекс - за да ги раздели.

В повечето сценарии декларирате масив като променлива, което позволява да се променят елементи от масива по време на изпълнение.

Понякога обаче е необходимо да декларирате постоянен масив - масив само за четене. Не можете да промените стойността на константа или променлива само за четене. Следователно, докато декларирате a постоянен масив, вие също трябва да го инициализирате.

Примерна декларация на три постоянни масива

Този пример на код декларира и инициализира три постоянни масива, назовани дни, CursorMode, и Предмети.

  • дни е низ от масиви от шест елемента. Days [1] връща низа Mon.
  • CursorMode е масив от два елемента, при което декларация CursorMode [false] = crHourGlass и CursorMode = crSQLWait. Константи "cr *" могат да се използват за промяна на текущия екран на курсора.
  • Предмети дефинира масив от три TShopItem записи.
instagram viewer
Тип
TShopItem = запис
Име: низ;
Цена: валута;
край;
конст
Дни: масив [0..6] от string =
(
'Слънце', 'Пон', 'Вт', 'Ср',
'Чт', 'Пт', 'Сб'
) ;
CursorMode: масив [boolean] от TCursor =
(
crHourGlass, crSQLWait
) ;
Елементи: масив [1..3] от TShopItem =
(
(Име: „Часовник“; Цена: 20,99),
(Име: „Молив“; Цена: 15,75),
(Име: „Борд“; Цена: 42,96)
);

Опитът да се присвои стойност за елемент в постоянен масив повдига грешката при компилиране „Лявата страна не може да бъде присвоена“. Например следният код не се изпълнява успешно:

 Елементи [1]. Име: = 'Гледайте'; //няма да компилирам

instagram story viewer