Function (Fungsi)

Function Mirip dengan Procedure bedanya Function mengembalikan suatu nilai sedangkan procedure tidak, berikut contoh penggunaan Function :



A. Contoh Design Form




B. Penggalan Koding Program

function luas(alas,tinggi:real):real;
begin
result:=1/2*alas*tinggi;
end;


procedure TForm1.Button1Click(Sender: TObject);
var alas,tinggi:double;
begin
alas:=strtofloat(edit1.Text);
tinggi:=strtofloat(edit2.Text);
edit3.Text:=floattostr(luas(alas,tinggi));
end;

Download contoh program