Array Delphi

Array Menggunakan Delphi

ARRAY

1.     Materi Array

Pengenalan Array

Array adalah sekumpulan data yang memiliki data yang banyak dengan tipe data sama, Kegunaan array sangatlah banyak, dengan sifatnya yang dinamis array mampu digunakan sebagai object penyimpanan data yang sangat bagus dan stabil meskipun ketika program ditutup data yang tersimpan akan hilang semua.

Array memerintahkan koleksi data dari satu jenis. Setiap item data disebut elemen, dan diakses oleh posisinya (indeks) dalam array. Mereka sangat berguna untuk menyimpan daftar data, seperti pelanggan, atau baris teks. Ada beberapa jenis array,  array bisa tunggal atau multidimensi (daftar daftar berlaku).

Jenis Array

·         Array Konstan  (Constant arrays)

Array ini digunakan untuk menyimpan tetap, informasi berubah. Didefinisikan dalam dua cara :

const
   Days : array[1..7] of string = ('Senin','Selasa','Rabu','Kamis','Jumat','Sabtu','Minggu');

Dengan cara ini pertama menyatakan array serta isi dalam satu pernyataan.

Atau dengan cara :

 type
   TDays = array[1..7] of string;
 const
   Days : TDays = ('Senin','Selasa','Rabu','Kamis','Jumat','Sabtu','Minggu');

Kedua cara di atas mendefenisikan hari dalam satu minggu.

Contoh untuk memunculkan hari dalam 1 minggu .

const
   Days : array[1..7] of string = ('Senin','Selasa','Rabu','Kamis','Jumat','Sabtu','Minggu');

 var
   i : Integer;
 begin
   for i := 1 to 5 do      // Menampilkan Hari Sampai hari Ke 5
     ShowMessageFmt('Day %d = %s',[i,Days[i]]);
 end;




·         Array Statik (Static arrays)

Strukturnya seperti berikut ;

Data : array[0..10] of Integer;

Untuk cara menampilkannya sama seperti di atas .

Buat Variable terlebih dahulu , contoh :

var

i:=integer;

begin

   for i:=0 to 10 do

   listbox1.items.append(data[i])   // Menampilkan di ListBox

end;

kemudian tampilkan dengan script data[i] à yang berarti array data sesuai loop i

 begin
   SetLength(Data, 3);  //  Mengatur kapasitas untuk 3 elemen
 end;

·         Array Copy (Copying arrays)

Ketika menyalin array dimensi tunggal, kita dapat menggunakan rutin Salin. Hal ini memungkinkan kita untuk menyalin semua atau bagian dari satu array ke yang lain.

Contohnya :

var
   i : Integer;
   Awal, Target : array of Integer;
 
 begin
   SetLength(Awal, 8);
 
   for i := 1 to 8 do   
     Awal[i-1] := i;   // Memulai awal indeks 0
 
   Target := Copy(Awal, 3, 4);
 
   for i := 0 to Length(Target) -1 do        ShowMessage('Target['+IntToStr(i)+'] : '+IntToStr(Target[i]));
 end;




·         Array Banyak Dimensi (Multi-dimensional arrays)

Contoh Strukturnya

Data : array of array of integer;

Contoh Penulisannya

var
// deklarasi array multi dimensi

Data : array of array of integer;

// deklarasi nilai

Baris, kolom : word;

begin

// Menentukan panjang array

SetLength( Data,2,2);

// pemasukan data kedalam array, karna panjangnya 2 maka maxnya di kurang 1

for Baris := 0 to 1 do
for Kolom := 0 to 1 do
Data[Baris,kolom] := Baris + kolom; // isi data dari array

// menampilkan data dari array

for Baris := 0 to 1 do
for Kolom := 0 to 1 do
ShowMessage (‘[' + IntToStr(Baris) + ',' + IntToStr(Kolom)+'] =’ + IntToStr(Data[Baris,kolom]));

end;