Function Dan Procedure Pada Delphi

                        Function dan Procedure

Function adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi dan mempunyai satu feedback atau nilai balik, feedback bisa ber tipe data apa saja sesuai deklarasi.

Procedure adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi.

Jadi perbedaan diantara keduanya adalah ada pada data feedback atau nilai baliknya. Function memiliki nilai balik dan procedure tidak memiliki nilai balik.

            Berikut penjelasan cara penulisan nya :

Deklarasi :

procedure NamaProcedure(Parameter : TipeData);

function NamaFunction(Parameter : TipeData) : TipeDataFeedback;

deklarasi procedure dan function ditulis pada block public declaration, private, dan protected.

type
TForm1 = class(TForm)
private
procedure NamaProcedure(Parameter : TipeData);
public
function NamaFunction(Parameter : TipeData) : TipeDataFeedback;
protected
{ Protected declarations }
end;

Implementasi :

Cara menulis implementasi  adalah dengan menekan Ctrl + Shift + C

procedure TForm1.NamaProcedure(Parameter : TipeData);
begin

end;

procedure TForm1.NamaFunction(Parameter : TipeData): TipeDataFeedback;
begin

end;

Pemanggilan atau eksekusi :

Misalnya dipanggil ketika tombol di klik : 

seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
NamaProcedure(NamaParameter);
end;

Untuk lebih jelasnya lihat contoh program dibawah  ini :

Buka Borland Delphi 7. Klik File – New Application.

Buat Desain form seperti dibawah ini :

Component Aktif :

Edit  = tpanjang, tlebar

Label : lblluas

Button : btnfunction, btnprocedure, btnbaru, btnkeluar

Kemudian deklarasikan function dan procedurenya (yang bercetak tebal). :

  private

    { Private declarations }

  public

}

           { Public declarations }
     function lpp(p,l:string):string;

    procedure lpp1(p,l:string);

  end;

var

  Form1: TForm1;

luas:integer;  -> Variabel public

implementation

{$R *.dfm}

Masukkan perintah pada function dan  procedurenya. Ketikkan sript dibawah ini  :

function TForm1.lpp(p,l:string):string;

var

a,b:integer;

begin

a:= strtoint(p);

b:= strtoint(l);

luas:= a*b;

lblluas.Caption := inttostr(luas);

end;

procedure TForm1.lpp1(p,l:string);

var

a,b:integer;

begin

a:= strtoint(p);

b:= strtoint(l);

luas:= a*b;

lblluas.Caption := inttostr(luas);

end;

Panggil Fuction ketika tombol di klik.

Klik 2x tombol Function. Masukkan script di bawah  ini :

procedure TForm1.btnfunctionClick(Sender: TObject);

begin

lpp(tpanjang.Text,tlebar.Text);

end;

Klik 2x tombol Procedure. Masukkan script di bawah  ini :

procedure TForm1.btnprocedureClick(Sender: TObject);

begin

lpp1(tpanjang.Text,tlebar.Text);

end;

Maka Function dan procedure sudah terpanggil.

Kemudian Klik 2x tombol Baru. Masukkan script di bawah  ini :

procedure TForm1.btnbaruClick(Sender: TObject);

begin

tpanjang.Text := '';

tlebar.Text := '';

lblluas.Caption := 'luas';

tpanjang.SetFocus;

end;

Klik 2x tombol Procedure. Masukkan script di bawah  ini :

procedure TForm1.btnkeluarClick(Sender: TObject);

begin

Halt;

end;

Nah…..  selesai. Silahkan di running dengan tekan F9. Ini dia hasinya jika di running :

Ketika di klik Function

Ketika di klik Procedure

Sekian share dari saya. Semoga bermanfaat……..

Sampai jumpa di postingan selanjutnya.