penggunaan Function pada pemograman delphi

Pengertian secara umum mengenai  fungsi adalah merupakan sebuah penggalan program yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan  function dan dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program fungsi ditempatkan pada program utama.

Fungsi adalah sama halnya dengan procedure, fungsi seringkali digunakan untuk menangani penulisan listing program secara berulang ulang, dengan dibuatnya suatu fungsi maka penulisan listing rogram yang berulang-ulang tersebut bisa ditulis satu kali dan disimpan dalam suatu fungsi tertentu dan pemanggilan hanya cukup nama fungsinya saja. Sedangkan perbedaan fungsi dengan procedure adalah kalau fungsi nilai yang dikirim balik berada pada nama fungsinya. Satu hal yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya.

Bentuk Umum penulisan Fungsi 

function indentifier(daftar-parameter) : type;

Contoh

function IntToRoman(Value : Longint):String;

contoh program menggunakan fungsi

Membuat Program Konversi Angka Ke Huruf Romawi

hasil program yang diinginkan

Desain form

Kode program

Buat fungsi dibawah implementation seperti pada gambar berikut

Kode fungsi

function IntToRoman(Value : Longint):String;  // fungsi
const
arabics: Array[1..13] of integer=
(1,4,5,9,10,40,50,90,100,400,500,900,1000);
Romans: Array [1..13] Of string=
(‘I’,'IV’,'V’,'IX’,'X’,'XL’,'L’,'XC’,'C’,'CD’,'D’,'CM’,'M’);
Var
i :integer;
begin
For i:= 13 downto 1 do
while (Value >= Arabics[i]) do begin
Value:= Value – Arabics[i];
Result:= Result+ Romans[i];
end;

klik 2kali pada button Proses masukan kode program berikut

Var N : Integer;
begin
n:= StrToInt(edit1.text);
Label2.Caption:= ‘ Angka Romawi dari ‘+ Edit1.Text +’ adalah = ‘+  IntToRoman(N);// pemanggilan fungsi
end;

klik 2kali pada button Repeat masukan kode program berikut

Edit1.Clear;
Label2.Caption:=”;
Edit1.SetFocus;

Klik 2kali pada button close masukan kode program berikut

Close;

jika sudah selesai jalankan program dengan menekan F9…

selesai….

sumber:http://susanto13.wordpress.com/2012/12/23/penggunaan-fungsi-pada-pemrograman-delphi/