Kuidas deklareerida ja initsialiseerida püsivaid massiive Delphis

Delphis on mitmekülgne veebiprogrammeerimiskeel, massiivid lubada arendajal osutada sama nimega muutujate seeriale ja kasutada nende eraldamiseks numbrit - indeksit.

Enamikus stsenaariumides deklareerite massiivi muutujana, mis võimaldab massiivi elemente käitusaja jooksul muuta.

Kuid mõnikord peate deklareerima püsiva massiivi - ainult kirjutusmassiivi. Konstandi või kirjutuskaitstud muutuja väärtust ei saa muuta. Seetõttu kuulutades a püsimassiiv, peate selle ka lähtestama.

Kolme püsimassiivi deklaratsiooni näidis

See koodinäide deklareerib ja lähtestab kolm konstantset massiivi Päevad, CursorMode, ja Esemed.

  • Päevad on kuuest elemendist koosnev stringide massiiv. Days [1] tagastab esmaspäeva stringi.
  • Kursori režiim on kahe elemendi massiiv, kusjuures deklareerimine CursorMode [false] = crHourGlass ja CursorMode = crSQLWait. Kontakte "cr *" saab kasutada ekraanikuva kursori muutmiseks.
  • Esemed määratleb kolme TShopItem massiivi arvestust.
tüüp
TShopItem = kirje
Nimi: string;
Hind: valuuta;
lõpp;
const
instagram viewer

Päevad: massiivi [0..6] stringist =
(
'Päike', 'esmaspäev', 'teisipäev', 'ke',
'Teisipäev', 'reede', 'laup'
) ;
CursorMode: massiiv [boolean] TCursor =
(
crHourGlass, crSQLWait
) ;
Üksused: massiivi [1..3] TShopItem =
(
(Nimi: 'Kell'; Hind: 20,99),
(Nimi: 'Pliiats'; Hind: 15,75),
(Nimi: 'Juhatus'; Hind: 42,96)
);

Kui proovite konstantses massiivis üksusele väärtust määrata, tekib ajavea kompileerimine "Vasakpoolset külge ei saa määrata". Näiteks järgmine kood ei käivitu edukalt:

 Üksused [1] .Nimi: = 'Vaata'; //ei kompileeri