Tipe data Array di dalam Delphi

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.

2. Array Dinamis
array dinamis tidak mempunyai permintaan  penyimpanan di dalam memori(preallocated storage), ketika didefinisikan hanya berupa pointer.array dinamis harus  di set terlebih dahulu sebelum dapat digunakan, seperti : SetLength(dynArray, 5);

3. Open Array
wah ane gag begitu nyambung ma ne tipe data, kk” master delphi tulung di kasih penjelasan dunk, tp temen” jangan kuatir, sebenere dapat di simpulkan sendiri koq abis liat source codenya entar…hehee…

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;

Contoh Coding untuk mendeklarasikan dan menggunakan array dinamis

   1: var

   2:   // inisialisasi array dinamis

   3:   byteArray  : Array of Byte;            // Single dimensi Array

   4:   multiArray : Array of Array of String; // Multi dimensi Array

   5:  

   6:   i,j : Integer;

   7: begin

   8:   // menentukan panjang dimensi array

   9:   SetLength(byteArray, 5);

  10:  

  11:   // menunjukkan ukuran dan range dari array ini

  12:   ShowMessage('Panjang byteArray = '+IntToStr(Length(byteArray)));

  13:   ShowMessage('Element terendah dari byteArray = '+IntToStr(Low(byteArray)));

  14:   ShowMessage('Element tertinggi dari byteArray = '+IntToStr(High(byteArray)));

  15:  

  16:   // mengisi elemen array yang dimulai dari indeks ke 0

  17:   for i:=0 to 4 do

  18:     byteArray[i] := i * 5;

  19:  

  20:   // menampilkan isi dari elemen array

  21:   ShowMessage('Elemen ke 2 dari byteArray = '+IntToStr(byteArray[2]));

  22:   ShowMessage('Elemen ke 4 dari byteArray = '+IntToStr(byteArray[4]));

  23:  

  24:   // menentukan panjang dimensi pertama dari array multidimensi

  25:   SetLength(multiArray, 3);

  26:  

  27:   // menentukan panjang dari 3 sub array

  28:   SetLength(multiArray[0], 1);

  29:   SetLength(multiArray[1], 2);

  30:   SetLength(multiArray[2], 3);

  31:  

  32:   // menentukan dan menunjukkan seluruh elemen dari array

  33:   for i := 0 to High(multiArray) do

  34:     for j := 0 to High(multiArray[i]) do

  35:     begin

  36:       multiArray[i,j] := IntToStr(i+j);

  37:       ShowMessage('multiArray['+intToStr(i)+','+intToStr(j)+'] = '+

  38:                   multiArray[i,j]);

  39:     end;

  40: end;

Contoh Coding untuk mendeklarasikan dan menggunakan open array

   1: var

   2:   // mendefiniskan array dinamis

   3:   charArray : TCharArray;

   4:   openArray : Array [0..2] of char;

   5:  

   6:   i : Integer;

   7:  

   8: begin

   9:   openArray[0] := 'N';

  10:   openArray[1] := 'o';

  11:   openArray[2] := 'w';

  12: end;

  13:  

  14: // procedure yang akan mengupdate array dinamis

  15: // penting : - catatan bahwa array tidak boleh di deklarasikan disini -

  16: //             kita harus menggunakan tipe data array untuk menghindari

  17: //             makna sebagai open array

  18: procedure TForm1.FurnishDynamicArray(var typeArray : TCharArray);

  19: var

  20:   i : integer;

  21: begin

  22:   // mengatur panjang array

  23:   SetLength(typeArray, 5);

  24:   // mengisi data Array

  25:   for i:=0 to 4 do

  26:     typeArray[i] := Chr(Ord('A')+i);

  27: end;

  28:  

  29: // procedure yang menampilkan openArray

  30: procedure TForm1.ShowOpenTypeArray(typeArray : Array of char);

  31: var

  32:   i : integer;

  33: begin

  34:   // menampilkan semua elemen dari array

  35:   for i := 0 to High(typeArray) do

  36:     ShowMessage('typeArray['+IntToStr(i)+'] = '+typeArray[i]);

  37: end;

  38:  

  39: procedure TForm1.ShowOpenConstArray(const constArray : Array of const);

  40: var

  41:   i : integer;

  42: begin

  43:   for i:= 0 to High(constArray) do

  44:     ShowMessage('constArray['+IntToStr(i)+'] = '+constArray[i].VChar);

  45: end;

Selamat belajar Array

Sumber Gambar dan Artikel

1. http://www.laymark.com/i/o/82.gif


2. http://www.delphibasics.co.uk/RTL.asp?Name=Array