Tiga Jenis Array pada Delphi

Konsep dasar dari bentuk array adalah matriks dari suatu tipe. Jenis array dibedakan berdasarkan cara penggunaan array tersebut menjadi tiga jenis:

1. Array statik
   Jenis Array ini memiliki ukuran yang tetap dan tidak bisa diubah. Sebagai contoh:
   

   var vektor:array[0..100] of char;
   var matriks:array[0..100,0..100] of char;
   type jeniskuda=(kudanil,kudalaut,kudazebra,kudaandong);
   var kuda:array[kudanil..kudaandong] of jeniskuda;



2. Array dinamis
   Jenis Array ini memiliki ukuran yang dinamis yang dapat diubah-ubah, untuk mendefinisikan ukuran array menggunakan function setlength(var arraytype;dimension:integer;[dimension:integer;...]);. Sebagai contoh:
   

   var vektor:array of char;
   var matriks:array of array of char;
   begin
     setlength(vektor,101);       // mengeset vektor menjadi array[0..100]
     setlength(matriks,101,101);  // mengeset matriks menjadi array[0..100,0..100]
   end;



3. Array Terbuka
   Array jenis ini digunakan pada subroutine sebagai parameter
   

   type arraychar=array of char;
   procedure tes_array1(data:array of char);
   var i:integer;
   begin
     for i:=0 to high(data) do
     data[i]:='a';
   end;
   
   procedure tes_array2(data:arraychar);
   var i:integer;
   begin
     for i:=0 to high(data) do
     data[i]:='a';
   end;
   
   var data:arraychar;
   begin
     tes_array1(['a','b','c']);
     setlength(data,5);
     tes_array2(data);
   end;

Semoga bermanfaat