Cara Mendeklarasikan dan Menginisialisasi Array Konstan dalam Delphi

Dalam Delphi, bahasa pemrograman web yang serbaguna, array memungkinkan pengembang untuk merujuk ke serangkaian variabel dengan nama yang sama dan menggunakan angka — indeks — untuk membedakannya.

Dalam sebagian besar skenario, Anda mendeklarasikan array sebagai variabel, yang memungkinkan elemen array diubah saat run-time.

Namun, terkadang Anda perlu mendeklarasikan array konstan — array hanya-baca. Anda tidak dapat mengubah nilai variabel konstan atau hanya-baca. Karena itu, ketika mendeklarasikan a array konstan, Anda juga harus menginisialisasi itu.

Contoh Deklarasi Tiga Array Konstan

Contoh kode ini menyatakan dan menginisialisasi tiga array konstan, bernama Berhari-hari, CursorMode, dan Item.

  • Berhari-hari adalah array string enam elemen. Hari [1] mengembalikan string Sen.
  • CursorMode adalah array dua elemen, di mana deklarasi CursorMode [false] = crHourGlass dan CursorMode = crSQLWait. Konstanta "cr *" dapat digunakan untuk mengubah kursor layar saat ini.
  • Item mendefinisikan array tiga TShopItem catatan.
instagram viewer
Tipe
TShopItem = rekam
Nama: string;
Harga: mata uang;
akhir;
const
Hari: array [0..6] dari string =
(
'Sun', 'Mon', 'Tue', 'Wed',
'Kamis', 'Jumat', 'Sabtu'
) ;
CursorMode: array [boolean] dari TCursor =
(
crHourGlass, crSQLWait
) ;
Item: array [1..3] dari TShopItem =
(
(Nama: 'Jam'; Harga: 20,99),
(Nama: 'Pensil'; Harga: 15.75),
(Papan nama'; Harga: 42,96)
);

Mencoba menetapkan nilai untuk item dalam array konstan memunculkan "kompilasi sisi kiri tidak dapat ditugaskan" kesalahan waktu. Misalnya, kode berikut tidak berhasil dijalankan:

 Item [1] .Nama: = 'Tonton'; //tidak akan dikompilasi

instagram story viewer