...

Referensi

http://www.delphibasics.co.uk/Article.asp?Name=Arrays

Tujuan

Memberikan dasar pengetahuan mengenai penggunaan Array dengan banyak dimensi.

Overview

Artikel ini membahas tentang penggunaan array dengan banyak dimensi. Materi ini adalah materi dasar. Sehingga diharapkan anda sebagai pemula dapat memahami dan mempelajari artikel ini dengan baik.

Untuk menambah pemantapan materi array, silahkan anda baca juga untuk artikel yang lainnya yang masih berhubungan dengan penggunaan array. Untuk lebih detailnya, silahkan anda lihat bagian link terkait dibawah halaman ini.

Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.

Struktur Array banyak dimensi :

<A>…..:…..array…..<B>…..of…..array…..<C>…..of <D>;
A adalah nama array
B,C adalah batas interval indek array
D adalah tipe data dari array

Apabila batas interval indek array tidak ditentukan, maka hal ini berarti array merupakan array dua dimensi dengan sifat dinamis. Namun apabila anda menentukan batas interval tersebut, maka itu berarti merupakan array dua dimensi dengan sifat statik.

Apabila anda memilih array dengan sifat atau karakteristik yang dinamis, maka setiap kali sebelum menggunakan array tersebut anda harus inisialisasi indek array tersebut dengan prosedur SetLength.
Didalam artikel ini nanti akan dijelaskan dengan menggunakan array yang dinamis.

Contoh penulisan pendeklarasian array:

NamaMantan : arrayof array of string;// Array dinamis
NamaMantan : array[0..11] of array[0..5] of string; // Array Statik

Petunjuk :

Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

Langkah 1

Buat program aplikasi baru.

Langkah 2

Tambahkan beberapa object kedalam Form

 	ListBox1: TListBox;
 	Edit1: TEdit;
 	Edit2: TEdit;
 	Button1: TButton;
 	Button2: TButton;

Langkah 3

Atur desainnya seperti berikut ditampilkan pada gambar form dibawah in

Langkah 4

Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    …
    …
    procedure TForm1.Button1Click(Sender: TObject);
    var
    // deklarasi array multi dimensi
    Data : array of array ofinteger;
    // deklarasi counter
    Baris, kolom : word;
    begin
    // Menentukan panjang array untuk masing – masing dimensi
    SetLength( Data,
    StrToInt(Edit1.Text), // panjang dimensi 1
    StrToInt(Edit2.Text)); // panjang dimensi 2
    // pemasukan data kedalam array
    for Baris := 0 to StrToInt(Edit1.Text) – 1 do
    for Kolom := 0 to StrToInt(Edit2.Text) – 1 do
    Data[Baris,kolom] := Baris + kolom;
    // mengosongkan data pada listbox
    ListBox1.Clear;
    // menampilkan data dari array
    for Baris := 0 to StrToInt(Edit1.Text) – 1 do
    for Kolom := 0 to StrToInt(Edit2.Text) – 1 do
    ListBox1.Items.Add(‘[‘ + IntToStr(Baris) + ‘,’ + IntToStr(Kolom)+’] =’ + IntToStr(Data[Baris,kolom]));
    end;
    …
    …

Langkah 5

Silahkan anda compile. Tekan tombol Ctrl + F9. Tunggu beberapa saat… ( Sedang di cek kode programnya ).
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.

Langkah 6

Tentukan indek interval array untuk dimensi satu dan dua

Langkah 7

Silahkan anda tekan tombol Proses

Langkah 8

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.