Delphi: Array

Definisi Array

arrayArray (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen– komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlahkomponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenenditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukanurutan data atau identitas yang mewakili data yang ada didalamnya. Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama yang samadidalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan namayang lain maka diberikan initial tambahan untuk setiap nama. Dengan demikian Array dapat didefinisikan sebagai 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.

Deklarasi Array

Didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarsikanterlebih dahulu. Pendeklarasian array diawali dengan nama variabel array diikuti denganindeks array yang dituliskan didalam tanda “[]” , diikuti dengan kata cadangan of dan tipedata yang dibutuhkan.

Bentuk Umum Penulisan

Tanda_pengenal : array [..tipe index ..] of tipe data;

 

Contoh :

 

Var A : array[1..4] of integer;
      B : array[1..5] of string;
      C: array[1..10] of real;

 

Keterangnan :

 

A,B,C merupakan tanda pengenal/ nama variabel dari array;1..4 : merupakan tipe indek dari array, yang menunjukan banyaknya data yang mampudisimpan.Integer : menunjukan bahwa data yang diinput berupa bilangan bulat.

 

Latihan

Buatalah program menampilkan 7 keajaiban dunia menggunakan aray dengan tampilan sebagai berikut:

Latihan Array - 7 Keajaiban Dunia

Latihan Array – 7 Keajaiban Dunia

 

Desain Form

Buat Form Baru, dengan komponen: 4 komponen Label, 3 komponen Edit, 1 Komponen  Memo, 1 komponen UpDown, 1 Komponen UpDown, 1 komponen Image, 1 komponen Button.  

Desain Form - 7  Keajaiban Dunia

Desain Form – 7 Keajaiban Dunia

 

Pengaturan Properti

  • Form1
    • Caption := ‘7 Keajaiban Dunia’
  • Label1
    • Caption := ‘No’
  • Label2
    • Caption := ‘Nama’
  • Label3
    • Caption := ‘Lokasi’
  • Label4
    • Caption := ‘Deskripsi’
  • Button1
    • Caption := ‘Tutup’
  • UpDown1
    • Min := 1;
    • Max := 7;
    • Orientation := udHorizontal;

Pengkodean

Sebelum melakukan pengkodean, salinlah gambar-gambar berikut pada folder anda: 1 2 3 4 5 6 7

procedure TForm1.FormCreate(Sender: TObject);
begin
 nama [1] := 'Chichén Itzá';
 lokasi [1] := 'Yucatán, Mexico';
 deskripsi [1] := 'Pemujaan, Ilmu Pengetahuan';
 gambar [1] := '1.bmp';

 nama [2] := 'Patung Kristus Penebus';
 lokasi [2] := 'Rio de Janeiro, Brasil';
 deskripsi [2] := 'Penerimaan, Keterbukaan';
 gambar [2] := '2.bmp';

 nama [3] := 'Machu Picchu';
 lokasi [3] := 'Cuzco, Perú';
 Deskripsi [3] := 'Komunitas, Dedikasi';
 gambar [3] := '3.bmp';

 nama [4] := 'Colosseum';
 lokasi [4] := 'Roma, Italia';
 Deskripsi [4] := 'Kesenangan, Penderitaan';
 gambar [4] := '4.bmp';

 nama [5] := 'Tembok Besar Tiongkok';
 lokasi [5] := 'Cina';
 Deskripsi [5] := 'Perlindungan, Terus Menerus';
 gambar [5] := '5.bmp';

 nama [6] := 'Petra';
 lokasi [6] := 'Yordania';
 Deskripsi [6] := 'Teknik, Perlindungan';
 gambar [6] := '6.bmp';

 nama [7] := 'Tajmahal';
 lokasi [7] := 'Agra, India';
 Deskripsi [7] := 'Cinta dan Hasrat';
 gambar [7] := '7.bm';

 Edit1.Text := inttostr(UpDown1.position);
 Edit2.Text := Nama[UpDown1.position];
 Edit3.Text := Lokasi[UpDown1.position];
 Memo1.Text := Deskripsi[UpDown1.position];
 image1.Picture.LoadFromFile(gambar[UpDown1.position]);
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
 Edit1.Text := inttostr(UpDown1.position);
 Edit2.Text := Nama[UpDown1.position];
 Edit3.Text := Lokasi[UpDown1.position];
 Memo1.Text := Deskripsi[UpDown1.position];
 image1.Picture.LoadFromFile(gambar[UpDown1.position]);
end;

Tuliskan komentar anda

Komentar

Tinggalkan Balasan