Function

Fungsi merupakan suatu potongan program yang memberikan suatu hasil/ nilai. Karena memberikan suatu nilai, fungsi tidak dapat berdiri sendiri, melainkan memerlukan suatu tempat untuk menampung.
Untuk mendefinisikan suatu fungsi, Anda harus memulai dengan kata ‘Function’ yang diikuti oleh nama dari fungsi tersebut. Untuk memperjelas pembahasan, berikut contoh penggunaan fungsi dalam sebuah program :


Buat project sbb :

Gambar Project menggunakan fungsi

Prosedur pengerjaan, atur properti sbb :









Setelah selesai, simpan terlebih dahulu dengan cara klik menu | File |, | Save All |. Isi file unit (*.pas) dengan nama fmFungsi.pas dan file project (*.dpr) dengan nama Fungsi.dpr
Setelah selesai meletakkan dan mengatur komponen-komponen tsb, tekan tombol F12, lalu ketikkan deklarasi fungsi pada bagian Public (dibagian atas) sebagai berikut

public
function HitungHarga(HgSatuan,JmlLiter : Integer) : Integer;
{ Public declarations }
end;

Setelah selesai, kemudian dibawah kata ‘implementation’ dan {$R *.DFM}, ketikkan (semuanya) listing sbb :

//Contoh sederhana penggunaan fungsi
function TForm1.HitungHarga(HgSatuan,JmlLiter : Integer) : Integer;
begin
HitungHarga:=HgSatuan*JmlLiter;
end;


Setelah selesai menuliskan listing program untuk penggunaan function, tekan F12, lalu klik ganda (double click) pada Button1 (Proses), dan ketikkan listing berikut (ketik yang tidak diberi efek tebal) :

procedure TForm1.Button1Click(Sender: TObject);
var
Jml,Harga, TotalHg : Integer;
begin
Harga:=strtoint(edit1.text);
Jml:=strtoint(edit2.text);

//penggunaan fungsi Hitung harga
TotalHg:=HitungHarga(Harga,Jml);
edit3.text:=Inttostr(TotalHg);
end;


Tekan F12, lalu klik ganda (double click) pada Button2 (Reset), dan ketikkan listing berikut (ketik yang tidak diberi efek tebal) :

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text:='0';
Edit2.text:='0';
Edit3.text:='0';
Edit1.setfocus;
end;


Tekan F12, lalu klik ganda (double click) pada Button3 (Tutup), dan ketikkan listing berikut (ketik yang tidak diberi efek tebal) :

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;


Simpan kembali project Anda (Ctrl + S), kemudian jalankan (F9).