Pengertian Procedure Dan Function

//Pengertian

{
Procedure Adalah Suatu Process Code Yang Dibuat Secara Terpotong
Procedure Berguna Untuk Membuat Kode Yang dibuat Lebih Fleksibel dan Profesional

Dan Juga Procedure Berguna Untuk mempermudah Si Pengguna Untuk Mencari Kode Saat ingin mengubahnya

}

{

Function adalah Suatu Process Code yang dibuat secara terpotong tetapi memiliki nilai

Function memiliki type data Diakhir pernyataan , atau dengan kata lain
Function dapat mengkalkulasi nilai2 dan nilai akhir ada pada nilai function ...

Kegunaan Function Hampir sama dengan procedure

}


// Contoh Procedure
// Buat 1 button dan 3 edit dan buat Procedure , seperti dibawah ini

//=========================================

Procedure Tambah ;
var a,b,c : integer;
Begin
a:=strtoint(form1.edit1.text) ;
b:=strtoint(form1.edit2.text) ;

c:= a+b ;
form1.edit3.text := inttostr(c) ;
end;

//=========================================


//Kode untuk Button

Procedure Tform1.button1click(sender:tobject);
Begin
Tambah ;
end;



{
Nah Seperti inilah Contoh Procedure ...
Sedangkan Contoh Function
}




//=============================================

Function Tambah : integer ;
var a,b:integer ;
begin
a:= strtoint(edit1.text);
b:= strtoint(edit2.text);

Tambah := a + b ;
end;


//Kode untuk button1

Procedure Tform1.button1click(sender:tobject);
Begin
edit1.text:= inttostr(Tambah) ;
end;