Delphi for delphier

Array – Fungsi dan Prosedur

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Array
   
Judul Fungsi dan Prosedur
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi -
   
Tujuan
Mengajarkan kepada programmer pemula untuk mengetahui cara penggunaan array sebagai parameter dalam fungsi maupun prosedur, selain itu juga mengetahui cara penggunaannya sebagai hasil output fungsi yang merupakan sebuah array.
  spasi
Overview
Kali ini programmer pemula akan bisa mengetahui teknik bagaimana cara menggunakan array sebagai sebuah parameter dalam prosedur dan fungsi. Kemudian juga programmer pula tahu menempatkan array sebagai sebuah output dari sebuah fungsi.
Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas.
Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.
  spasi
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
Button3: TButton;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
array0010.jpg
  spasi
…..Langkah 4
  • Silahkan anda deklarasikan tipe TData. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
  spasi
 
var
Form1: TForm1;
type
TData = arrayofstring;
var
Simpanan : TData;
  spasi
Langkah 5
Silahkan anda buat fungsi FungsiArray. Untuk lebih detailnya silahkan anda lihat potongan kode program di bawah ini.
  spasi
 
function FungsiArray(Variabel : TStrings) : TData;
var
indek : Word;
Temp : TData;
begin
SetLength(Temp,Variabel.Count);
for indek := 0 to Variabel.Count – 1 do
begin
Temp[indek] := Variabel[indek];
end;
Simpanan := Temp;
end;
  spasi
Langkah 6
Silahkan anda buat fungsi ProsedurArray. Untuk lebih detailnya silahkan anda lihat potongan kode program di bawah ini.
  spasi
 
procedure prosedurArray(Data : TData; var listbox : TListBox);
var
indek : Word;
begin
listbox.Clear;
for indek := 0 to High(Data) do
listbox.Items[indek] := Data[indek];
end;
  spasi
Langkah 7
Silahkan anda klik 2x tombol fungsi. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
  spasi
 
procedure TForm1.Button1Click(Sender: TObject);
var
indek : Word;
begin
ListBox2.Clear;
for indek := 0 to High(FungsiArray(ListBox1.Items)) do
ListBox2.Items[indek] := FungsiArray(ListBox1.Items)[indek];
end;
  spasi
Langkah 8
Silahkan anda klik 2x tombol prosedur. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
  spasi
 
procedure TForm1.Button2Click(Sender: TObject);
begin
prosedurArray(Simpanan,ListBox3);
end;
  spasi
Langkah 9
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.
  spasi
Langkah 10
Silahkan anda tekan tombol Fungsi
  spasi
 
array0011.jpg
  spasi
Langkah 11
Silahkan anda tekan tombol Prosedur
  spasi
 
array0012.jpg
  spasi
Langkah 12
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
  spasi
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait
Judul Tutorial
     
 
   
   
   
   
   
 
     
   
Judul Tutorial
     
 
   
   
   
   
 
     
       
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

The Rubric Theme Blog pada WordPress.com.

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 37 pengikut lainnya.

%d bloggers like this: