TIPE DATA ARRAY DI DALAM DELPHI (Statis Array)

Apa sech Array itu,,,hem kalo algoritma pemrograman kita pengen tertata dan simple paleng enak sih gunakan array,, tp kalo temen” lum tau array kan repot juga….

Array itu sebuah tipe data yang dapat diisi koleksi beberapa data dan mempunyai index untuk masing” data…haiah, bahasanya ribet banget se….array ntu kayak rak laci meja….jika lacinya ada 3 ya kita bisa bilang ntu array……laci 1 di isi benda1, laci 2 di isi benda 2 en laci 3 di isi benda 3 nah indeksny ntu 1, 2 dan 3..

dalam delphi ada 3 syntaks untuk mendeklarasikan tipe data array :
1. type NamaArray = Array[Index type|Ordinal..Ordinal{,…}] of Base type; // ini untuk statis array
2. type NamaArray = Array of {Array of …} Base Type; // ini untuk dinamis array
3. NamaArray : Array of {Array of …} const; // ini untuk tipe open variant array
NamaArray : Array type; // Open dynamic array

Deskripsi
1. Statis Array
statis array adalah tipe data array yang sudah tetap dan tidak bisa di rubah-rubah ukurannya, array tipe statis bisa berupa satu dimensi atau multidimensi.

Contoh Coding untuk mendeklarasikan dan menggunakan array statis :


 1: var
   2:   // mendefinisikan variabel arry static
   3:   wordArray  : Array[Word] of Integer;     // statis array, ukuran = High(Word)
   4:   multiArray : Array[Byte, 1..5] of char;  // statis array, 2 dimensi
   5:   rangeArray : Array[5..20] of string;     // statis array, ukuran 16
   6: 
   7:   i : Integer;
   8: begin
   9:   // Menampilkan ukuran dan range dari masing-masing array
  10:   ShowMessage('Panjang wordArray = '+IntToStr(Length(wordArray)));
  11:   ShowMessage('Element terendah dari wordArray = '+IntToStr(Low(wordArray)));
  12:   ShowMessage('Element tertinggi dari wordArray = '+IntToStr(High(wordArray)));
  13:   showMessage('Panjang multiArray = '+IntToStr(Length(multiArray)));
  14:   showMessage('Element terendah dari multiArray = '+IntToStr(Low(multiArray)));
  15:   showMessage('Element tertinggi dari multiArray = '+IntToStr(High(multiArray)));
  16:   showMessage('Panjang rangeArray = '+IntToStr(Length(rangeArray)));
  17:   showMessage('Element Terendah dari rangeArray = '+IntToStr(Low(rangeArray)));
  18:   showMessage('Element Tertinggi dari rangeArray = '+IntToStr(High(rangeArray)));
  19:   showMessage('');
  20: 
  21: 
  22:   showMessage('Elemen ke 7 dari wordArray = '+IntToStr(wordArray[7]));
  23:   showMessage('ELemen ke 20 dari wordArray = '+IntToStr(wordArray[20]));
  24: 
  25:   // gunakan index untuk mengisi sebuah array
  26:   for i:= 5 to 20 do
  27:     rangeArray[i] := IntToStr(i * 5);
  28: 
  29:   // sekarang menampilkan 2 elemen dari array
  30:   ShowMessage('Elemen ke 7 dari rangeArray = '+rangeArray[7]);
  31:   ShowMessage('Elemen ke 20 dari rangeArray = '+rangeArray[20]);
  32: 
  33: end;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


%d bloggers like this: