Hvordan erklære og initialisere konstante arrays i Delphi

I Delphi, det allsidige nettprogrammeringsspråket, arrays la en utvikler referere til en serie variabler med samme navn og bruke et tall - en indeks - for å skille dem fra hverandre.

I de fleste scenarier erklærer du en matrise som en variabel, som gjør det mulig å endre arrayelementer ved kjøretid.

Noen ganger må du imidlertid erklære en konstant matrise - en skrivebeskyttet matrise. Du kan ikke endre verdien på en konstant eller en skrivebeskyttet variabel. Derfor, mens de erklærer a konstant matrise, må du også initialisere det.

Dette kodeeksemplet deklarerer og initialiserer tre konstante arrays, navngitt Dager, CursorMode, og elementer.

• Dager er en strengrekke med seks elementer. Dager [1] returnerer man-strengen.
• CursorMode er en utvalg av to elementer, hvorved erklæring CursorMode [false] = crHourGlass og CursorMode = crSQLWait. "cr *" -konstanter kan brukes til å endre gjeldende skjermmarkør.
• elementer definerer en rekke tre TShopItem poster.

type
TShopItem = post
Navn: streng;
Pris: valuta;
slutt;
konst
Dager: matrise [0..6] av streng =
(
'Sol', 'Man', 'Tirsdag', 'Ons',
'Tors', 'fre', 'lør'
) ;
CursorMode: array [boolean] of TCursor =
(
crHourGlass, crSQLWait
) ;
Elementer: matrise [1..3] av TShopItem =
(
(Navn: 'Klokke'; Pris: 20.99),
(Navn: 'Blyant'; Pris: 15,75),
(Navn: 'styre'; Pris: 42.96)
); 

Å prøve å tilordne en verdi for et element i en konstant matrise, hever "Venstre side kan ikke tilordnes" kompilering av tidsfeil. Følgende kode kjøres for eksempel ikke vellykket:

 Elementer [1] .Name: = 'Se'; //vil ikke sammenstille