Contoh Function 3

//Function 1

{

Kali ini kita akan membuat Function Sederhana Yang Berguna Untuk Membuat Kalkulator Sederhana


Sebelumnya Buat 4 Button dan Buat 3 edit.
Button1 captionnya = TAMBAH
Button2 captionnya = KURANG
Button3 captionnya = BAGI
Button4 captionnya = KALI


}

// Function

Function Kalkulator (Prosess : STRING  ;  Nilai1 , Nilai2  : REAL ) : Real ;
Begin

if Uppercase(Prosess) = 'TAMBAH' then
kalkulator := nilai1+nilai2

else

if Uppercase(Prosess) = 'KURANG' then
kalkulator := nilai1-nilai2

else
if Uppercase(Prosess) = 'KALI' then
kalkulator := nilai1*nilai2

else
if Uppercase(Prosess) = 'BAGI' then
kalkulator := nilai1/nilai2 ;


end;


// Button1 , Sampai button4 ... Kodenya sama ...

Procedure tform1.Button1click(sender:tobject) ;
var Nil1, nil2,nil3: real ;
Begin

Nil1 := strtofloat(edit1.text) ;
Nil2 := strtofloat(edit2.text) ;

nil3 := Kalkulator (Tbutton(sender).caption , nil1 , nil2  );

edit3.text := floattostr( nil3 ) ;

end;